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Disk Bonus: 
Talking Programs Made Easy 




American Techna- Vision 

For Orders Only - 1-800-551-9995 . No surcr , a rge for VISA/MasterCard 

CA. Orders / Information 415-352-3787 . Your car d is not charged until we ship 



800 4 PIECE BOARD SET 

Includes Main Board, Power Supply 
Assembly, CPU Module and 10K 
Revision B Operating System Module. 
All boards are new, tested and complete 
with all components. $ 2 Q 50 



WORD PROCESSORS 

• PaperClip (Disk) $29.95 

• AtariWriter (Cart.) $29.95 

• Bank Street Writer (D) . $17.50 

• Cut & Paste (Disk) $17.50 

• Letter Wizard (Disk) . . . $17.50 



FLAT SERVICE RATES 

1050 DISK DRIVE $75.00 

810 DISK DRIVE $69.50 

850 INTERFACE $39.50 

800 COMPUTER $49.50 

1200XL COMPUTER $49.50 

Flat rates include Parts & Labor, 60 day 
warranty. Include $7.00 shipping & insurance 



800/400 MODULES 

NEW PARTS COMPLETE WITH ICS 
gQ • CX853 16K Ram Module 



9^ v -800 Main Board 
•800/400 CPU with GTIA 
rz A ru • 800 10K M B M O.S. Module 
CMUrl . 400 Main Board 

• 400 Power Supply Board 

800 Power Supply Board $14.50 
INTEGRATED CIRCUITS 

• CPU CO14806 

• POKEY C012294 

• PIA C014795 

, • GTIA CO14805 

$ ^50 -ANTIC C012296 

LL -CPU CO10745 

1 -PIA CO10750 

FAPW ,CPU C014377 

tZMon . delay CO60472 

•2600TIA.. CO10444 

• PIA C012298 

•CPU 6507 

• PIA 6532 

•RAM 6810 

•CPU 6502B 



C061598 $20.00 
C061991 $15.00 
1050 Rom $19.50 
C061618 $20.00 



C021697 $15.00 
C025953 $9.50 
5713 .... $5.25 
C024947 $15.00 



1050 MECHANISM 

Factory fresh TANDON mechs. 
make difficult repairs a snap. Units 
are complete with Head, Stepper, 
Spindle motor, belt etc. Just plug in, 
no difficult alignments or adjust- 
ments required -^^q 



VISICALC 

SPREADSHEET 

Unleash the computing power $ a r\Q5 
of your 8 bit Atari withVisicalc. | y 
Compute everything from home disk 
finances to high powered finan- 
cial projections. Hundreds of uses. 



XL 40 PIN LSI CHIPSET 

A Complete set of 40 Pin Large 
Scale Integrated Circuits for your 
800XL, 600XL or 1200XL computer. 
Great for quick repairs I Set 
contains one each of the ^ . ^ r^r- 1 
following: CPU, GTIA, $ 1 R I 
ANTIC, PIA AND POKEY. Iw 



REPAIR MANUALS 

SAMS Service Manuals for the 
following units contain schematics, 
parts listings, labelled photographs 
showing the location of 
checkpoints and more! A special 
section gives oscilloscope and 
logic probe readings allowing you 
to narrow the malfunction down to 
a specific chip or transistor! 
806, 800XL, 130XE, 400, 1025 

and 1050 $19.50 each 

520ST Service Manual. $37.50 

MISCELLANEOUS 

1027 INK ROLLER $6.50 

13 Pin Serial I/O Cable $5.95 

ACE Joystick $7.95 

Joystick Extension Cable 6' $5.00 

1050 Track 0 Sensor $8.50 

2793 1050 Controller IC . . . $19.50 

U.S. Doubler $29.95 

SPARTADOS Tool-Kit . . . $32.95 
Paddle Controllers (Pair) . . . $6.50 

400 3 Piece Board Set $19.50 

Fastchip for 800/400 $15.50 

Rambo XL w/o RAM IC's $39.95 
850 or PR Modem Cable . . $14.50 
850 or PR Printer Cable . . . $14.50 

Printer Interface $39.95 

I/O 13 Pin PC connector . . . $4.50 
I/O 13 Pin Cable end plug . . $4.50 
ST 6' Disk Drive Cable . . . $14.00 

ST Monitor Cable $22.95 

ST Monitor Cable connector $5.50 
ST Drive Cable plug end ... . $6.50 
k ST to 5 1/4" Drive Cable .... $23.95 



POWER PACKS 

Exact replacement trans- <k . 

former for 800/400, 1050 $ T A O U I 
810, 1200XL, 850, XF551 & | *+ 
1020 units. Part 3C017945. 

XL/XE SUPPLY 

Power Pak for 800XL.600XL $OC00l 
130XE, 65XE & XE Game. ^J^l 



THE BOOKEEPER 
AND CX85 KEYPAD 

You get both Atari's 8 bit 
professional bookeeping $*1Q95| 
system and the handy CX85 1 
numeric keypad for one low 4 DISK 
price. Packages factory sealed. SET 



KEYBOARDS 

New and complete subassembly. 
Easy internal replacement. 

130XE/65XE $35.00 

800 $40.00 

800XL $29.50 

400 $12.50 



COMPUTER BOOKS 

Atari Playground Workbook $7.95 
HackerBook Tricks & Tips $5.00 

Inside Atari Basic §5.00 

Atari Basic Ref. manual. $5.00 
How to Atari 6502 Program $5.00 
Write Your Own Games. $5.00 
Programmers Ref. Guide $14.95 
Assembly Language Guide $21.95 
XE Users Handbook .... $2 1 .95 
XL Users Handbook ... . $21.95 
Advanced Programming $21.95 
Atari Basic Faster & Better $22.95 
Your Atari Computer $17.95 

SERIAL I/O CABLE 

High Quality, 13Pin $5.95 

MAC-65 CARTRIDGE 

6502 Machine language Macro- 
Assembler. First class tool for 
serious programmers. . . $59.95 

ATARI 850 INTERFACE 

Bare PC Board with parts list and 

crystal $7.50 

Board & all plug in IC's . . . $39.50 

PR: CONNECTION 

Serial/Parallel Interface for connecting 
modems and printers $65.00 

BASIC CARTRIDGE 

Exact replacement for 
800/400/ 120dXL $15.00 

EPROM CARTRIDGES 

16K Eprom Board with case. Specify 
dual 2764 or single 27128 style. Gold 
contacts $6.95 

ANIMATION STATION 

Graphics Design Tablet $74.95 



Cartridges for all 8 bit Atari computers 

Millipede Cartridge $10.00 

AtariWriter Cart $29.95 

Pac- Man Cartridge $4.00 

Deluxe Invaders Cart $4.00 

Journey to the Planets Cart. $4.00 

Donkey Kong Cart $5.00 

Crossfire Cartridge $7.50 

Springer Cartridge $7.50 

Turmoil Cartridge $7.50 

Fraction Fever Cart $9.50 

Alphabet Zoo Cart $9.50 

Linking Logic (Fisher-Price) $9.50 

FaceMaker Cart $9.50 

Delta Drawing Cart $9.50 

Choplifter Cart $10.00 

Adventure Creator Cart. . . $12.50 

Zone Ranger Cart $12.50 

Silicon Warrior Cart $12.50 

Math Encounter Cart $12.50 

Learning with Leeper Cart. $12.50 

Up For Grabs Cart $12.50 

PILOT Language Package . . $ 17.50 
SPARTADOS-X Cart. . . . $59.95 

ACTION O.S.S $59.95 

MAC-65 O.S.S $59.95 

DISK SOFTWARE 

PaperClip $29.95 

Visicalc Spreadsheet ... $19.95 
Bookeeper + CX85 Keypad $ 19.95 
Mission Asteroid Disk .... $4.00 
Fort Apocalypse Disk .... $5.00 

Spider Man Disk $5.00 

Human Torch & The Thing $5.00 
Musical Pilot Ed. Disk .... $5.00 

Computation Disk $5.00 

Debug Childware Disk .... $5.00 

Crystal Raider Disk $5.00 

Dispatch Rider Disk $5.00 

Master Chess Disk $5.00 

Speed King Disk $5.00 

Last V- 8 Disk $5.00 

Chambers/Zorp Disk $5.00 

Pathfinder Disk $5.00 

Match Racer Disk $5.00 

Encounter/Questar Disk . . . $5.00 

Alien Ambush Disk $5.00 

NINJA $7.50 

Electra-Glide $7.50 

Wombats Adventure (D) $7.50 
Sports Spectacular Disk . . $7.50 

The Gambler Disk $7.50 

Stratos Disk $7.50 

Fun in Learning Disk .... $7.50 
Fun in Numbers Disk .... $7.50 
Mind Mazes (Educational) $7.50 
Honey Craze Math (D) . . . $7.50 
Money Tools Utility (D) . . $9.95 

Dig Dug Disk $9.95 

Repton Disk $9.95 

Rear Guard Disk $9.95 

TechnaColor Dream .... $9.95 
Freaky Factory Disk .... $9.95 

Laser Hawk Disk $9.95 

Rocket Repairman Disk . $9.95 

Cest'e La Ve Disk $9.95 

Womper Stomper Disk . . $9.95 
Olin Emerald (Jr., Adv.) . . $9.95 
David's Midnight Magic Disk $12.50 

DropZone Disk $12.50 

Castle Wolfenstein Disk . . $12.50 
Beyond Castle Wolfenstein $12.50 

Aliants Disk $12.50 

Mouse Quest Disk $12.50 

Electronic Drummer Disk $12.50 
Stock Market Game .... $12.50 
Pirates of the Barbary Coast $ 12.50 

Nickerbocker Disk $12.50 

Midway Battles $14.95 

MoonMist Adventure (D) $14.95 

Mind Shadow (64K) $14.95 

Sea Stalker (D) $14.95 

Master Typing Tutor .... $15.00 

Bank Street Writer $17.50 

Cut & Paste W.P. Disk . . . $17.50 
SpartaDOS Const. Set . . . $39.50 

DATASOFT DISKS 

Zorro Disk $9.95 

Saracen Disk $9.95 

Gunslinger Disk XL/XE $9.95 

Crosscheck Disk $12.50 

Mercenary Disk $12.50 

The Goonies Disk $12.50 

Conan Disk $12.50 

Never Ending Story (64K) $12.50 

221 Baker St. XL/XE .... $17.50 



AMERICAN TECHNA-VISION 

Mail Order: 15338 Inverness St., San Leandro, Ca. 94579 
Repair Center: 2098 Pike Ave., San Leandro, Ca. 94577 

Terms: NO MINIMUM ORDER. We accept money orders, personal checks or 
C.O.D.s. VISA, Master/Card okay. Credit cards restricted to orders over $18.50. No 
personal checks on C.O.D. - Shipping: $4.00 shipping and handling on orders under 
$150.00. Add $2.75 for C.O.D. orders. In Canada total $6.00 for shipping and 
handling. Foreign shipping extra. Calif, residents include 7% sales tax. All items 
guaranteed 30 days from date of delivery. All sales final.. 

Prices subject to change vUlhout notice. Send SASE for free price list. Atari is a reg. trademark of Atari Corp 



CALL TOLL FREE 
1-800-551-9995 

IN CALIF. OR OUTSIDE U.S. 
CALL 415-352-3787 
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ICD 

The March 1989 Antic cover fea- 
tured ICD's SpartaDOS X slugging it 
out with Atari's own DOS-XE for the 
new 8-bit operating system champi- 
onship. Despite many impressive 
strengths in the "official" Atari entry, 
our review concluded that third-party 
ICD's SpartaDOS X is the "ultimate" 
operating system for power users and 
hard disk owners. 

SpartaDOS X ($79.95) comes on a 
64K piggyback cartridge that's com- 
patible with the Atari 800 as well as 
the XL/XE models. The Antic review 
also described SpartaDOS X as "the 
most advanced product released for 
the 8-bit Atari since ICD's own Multi 
I/O interface" — which won ICD an 
Antic Award in 1987. 

1220 Rock Street, Rockford, I L 61101. 
(815) 968-2228. 
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For 
the 1989 

Antic 
Awards, 
this magazine 
is proud 
to honor 
two of 
the energetic, 
imaginative 
companies 
that continue 
to lead 
the way in 
creating 
breakthrough 
products 
for the 
8-bit Atari. 





INNOVATIVE CONCEPTS 

Innovative Concepts' Easy-Scan 
image scanner shared the Antic Oc- 
tober 1988 Cover with ICD's 8-bit/ST 
FA-ST hard disk. Easy-Scan ($79.95) 
uses a pair of fiber-optic light pipes 
to copy images from paper into your 
Atari's memory with a surprisingly ac- 
curate 256-level gray scale. 

Innovative Concepts has estab- 
lished a solid reputation as a small 
company with an extensive line of 
8-bit memory upgrades and related 
hardware enhancements. On the 
same day that these awards were be- 
ing prepared, a box arrived at Antic 
with Innovative Concepts' three latest 
products— RAMdrive + XE-GM2, a 
192K memory upgrade for the Atari 
XE Game System; RAM-Aid, a cold- 
start device for Ataris with at least 
128K; and the XF35 Kit which con- 
verts the Atari XF551 disk drive to a 
3.5-inch drive with 720K capacity. 

31172 Shawn Drive, Warren, Ml 48093. 
(313) 293-0730. 
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EDITORIAL 



ANTIC'S SEVENTH ANNIVERSARY 



With this anniversary issue, Antic completes seven full years 
of publishing the bestselling magazine for Atari 8-bit com- 
puter users. Now as we enter our eighth year of continu- 
ous service to the 8-bit community, Antic is proud to still 
be one of the hardcore independent providers who have 
stuck by Atari users through good times and bad. 

The Atari 800, XL and XE continue to stand alone as the 
best 8-bit computers ever made. As changing market forces 
led to dwindling commercial support for the 8-bit line, Antic has tried to fill 
the gaps as much as our resources would allow. 

We have reactivated and expanded the Antic Arcade Catalog of 8-bit prod- 
ucts, bringing back many excellent commercial products that had been al- 
lowed to go out of print. 

On CompuServe's ANTIC ONLINE, we post many of our recent programs 
for your personal downloading, without any extra hourly surcharges. The 
ANTIC ONLINE INDEX gives you a high-powered database to look up any Antic 
article, review, or program from our seven years of publication. In fact, many of 
the complete articles and reviews are available in the Index for your 
downloading. 

Perhaps most significant of all is that the price of the monthly Antic Disk 
has been cut by nearly half of the original cost. Both sides of the Antic Disk 
are packed full of outstanding 8-bit software. Each month's disk features Super 
Disk Bonus programs that are too large and complex to be printed as type-in 
listings. 

Today's Antic Disk is an unbeatable Atari software value at $59. 95 for 12 
issues of the magazine plus disk — only $5 apiece. You can subscribe — or up- 
grade your current non-disk subscription — by mail, or by phoning toll- free 
to the Antic Disk Desk at (800) 234-7001 with your Visa or MasterCard order. 

Single disks can also be ordered from the Antic Disk Desk for only $5.95 
(plus $2 for shipping and handling) and will be shipped to you within 24 hours 
after receiving your Visa or MasterCard order. Or mail a $5. 95 check (plus $2 
shipping and handling) to Antic Disk Desk, 544 Second Street, San Francisco, 
CA 94107. And see the back-issues ad in this magazine for additional savings 
on the prior magazines and disks you need to complete your Antic Library. 

Let's keep working together for another year (Antic's eighth) of overcoming 
the nay-saying of those who want to write off the Atari 8-bit computers. We'll 
continue doing our part. It's important that you do your part by buying 8-bit 
products from the Arcade Catalog and subscribing to the Antic Disk. 




Nat Friedland 
Editor, Antic 
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A COMPUTER SOFTWARE SERVICES 
RO. BOX 17660, ROCHESTER NY 14617 
ATARI" PHONE (716) 467-9326 



$99.95 



JUST RELEASED! 

"SUPER ARCHIVER II"! 

(for ATARI 1050 drives) 

NOW! COPYS all ENHANCED DENSITY programs plus retains all of the features 
of our World Famous SUPER ARCHIVER! (see below). Allows you to COPY or 
CREATE single or ENHANCED density protection schemes (including PHAN- 
TOM SECTORS!). Completely automatic; compatible with the BIT-WRITER!; the 
ULTIMATE BACKUP/PROGRAMMING device! Only $99.95 plus $4 S/H/l 
NOTICE! If you already own a SUPER ARCHIVER!, you can upgrade to a SUPER 
ARCHIVER II for only $29.95 plus $4 S/H/l (disk only - no additional hardware 
required). 

THE 

$69.95 "SUPER ARCHIVER"!® $69.95 

(for ATARI 1050 drives) 

The new SUPER ARCHIVER. obsoletes all copying devices currently available 
for the ATAR1 10501 It eliminates the need for Patches, PDB flies, Computer 
Hardware, etc Copies are exact duplicates of originals and will run on any 
drive; without exaggeration, the SUPER ARCHIVER is the most powerful 
PROGRAMMING/COPYING device available for the 1050! Installation consists 
of a plug-In chip and 6 simple solder connections. Softwares included. 
Features are: 




• ARCHIVER/HAPPY ARCHIVER 
COMPATIBLE 

• BUILT-IN EDITOR - reads, writes, 
displays up to 35 sectors/track 
short 

• BUILT-IN CUSTOM FORMATTER 
up to 40 sectors/track 

• BUILT-IN DISASSEMBLER 

• BUILT-IN MAPPER - up to 42 sectors/ 
track 

• DISPLAYS/COPIES Double Density 
HEADERS 

• AUTOMATIC FORMAT LENGTH 
CORRECTION 

• SIMPLE INSTALLATION 

The SUPER ARCHIVER is so POWERFUL that only programs we know that can't 
be copied are the newer ELECTRONIC ARTS and SYNFILE/SYNCALC (34 FULL 
sectors/track). If you want it ALL . . . buy the "BIT-WRITER"! also . . . then you'll 
be able to copy even these programs! Only $69.95 plus $4 S/H/l. 



TRUE DOUBLE DENSITY 
ULTRA-SPEED read/write 

• FULLY AUTOMATIC COPYING 
SUPPORTS EXTRA MEMORY 

• SCREEN DUMP to printer 
TOGGLE HEX/DEC DISPLAY 
SECTOR orTRACK TRACING 
AUTOMATIC DIAGNOSTICS 
DISPLAYS HIDDEN PROTECTION 

• ADJUSTABLE/CUSTOM SKEWING 

• AUTOMATIC SPEED 
COMPENSATION 
AUTOMATIC/PROGRAMMABLE 
PHANTOM SECTOR MAKER 



$79.95 



'BIT-WRITER"! 



$79.95 



The Super Archiver "BTT-WRfTER"! is capable of dupkxrting even the "uncopyable" 
EA and SYN series which employ 34 FULL sectors/tracks. "BIT-WRITER"! is 
capable of reproducing these and FUTURE protection schemes of non 
physicially damaged disks. PLUG-IN circuit boards and 4 simple solder 
connections. The "SUPER ARCHIVER with "BIT-WRITER"! Is the ultimate 
PROGRAMMING/COPYING device for Atari 1050's. EXACT DUPLICATES of 
originals are madel Copies run on ANY drive. Must be used with Super 
Archiver. Only $79.95 plus $4 S/H/l. 



$69.95 



"ULTRA SPEED PLUS" 



$69.95 



Imagine a universal XL/XE Operating System so easy to use that anyone 
can operate It instantly, yet so versatile and powerful that every Hacker, 
Programmer and Ramdisk owner will wonder how they ever got along 
without it! Ultra Speed Plus puts unbelievable speed and convenience at 
your fingertips. Use ANY DOS to place an ULTRA SPEED format on your disks, 
boot any drive (1-9) upon power-up, format your RAMDISK In Double Density, 
activate a built-in 400/800 OS for software compatibility, plus dozens of other 
features too numerous to mention! Below are just a FEW features you'll find 
in the amazing OS: 



ULTRA Speed SI0 for most 
modified drives 
ULTRA Speed Is toggleable 
Boot directly from RAMDISK 
Special timer circuits not re- 
quired for 1 or 2 Meg upgrades 
■ Background colors adjustble 
' Reverse use of OPTION key 
i Cold-start without memory loss 
• Bullt-ln floppy/disk configuration 
editor (1-9) 



• Built In RAMDISK configura- 
tion editor (1-9) 

> RAMDISK exactly duplicates 
floppy drive so sector copy- 
ing and sector editing are 
now possible 

» Built In MINI Sector Copier 

• Toggle SCREEN OFF for up to 
40% Increase of processing 
speed. 

• Toggle Internal BASIC 



• Ram resident disk loader 

Erogram (MACH 10 menu) 
OUBLE DENSITY RAMDISK 
capable 

• Entire MEMORY test that pin- 
points defective RAM chip 

• Boot any drive (1-9) upon 
power-up or cold-start 

• Supports memory upgrades 
up to TWO MEGABYTES 

• THREE Operating Systems In 
one (XL/XE, 400/800, ULTRA 
SPEED PLUS) 



$29.95 



"XF551 ENHANCER!" 



$29.95 



The XF651 Atari drive is a fine product with one major flaw.. .it writes to side 
TWO of your flopping disks BACKWARDS. This causes read/write 
incompatibility problems with all other single sides drives made for Atari 
such as Indus. Trak, Rana, Percom, Astra, Atari 1050, Atari 810, etc. Add the 
XF551 ENHANCER to the new XF551 drive and your problems are over! This 
device will restore 100% compatibility while retaining original design 
qualities of Atari's super new drive. The XF551 ENHANCER is a MUST for all 
XF551 Owners. Installation is simple. Only $29.95 plus $4 S/H/l. 



DEALER/DISTRIBUTOR/USER GROUP Discount availalbe call for info. 
PHONE Orders - MASTER CARD, VISA MAIL - Money Orders, Checks 

•SHIPPING! Add $4 for Shipping/Handling/Insurance within the U.S.A. 
UPS BLUE LABLE (2nd DAY AIR) available for $3 extra per shipment. 
CALL TODAY! (716) 467-9326 COMPUTER SOFTWARE SERVICES 

9 am - 5 pm (EST) WEEKDAYS P.O. Box 17660 

Rochester, N.Y. 14617 



A 
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$39.95 RICHMAN'S $39.95 

80 Column Word-Processor! 

Easy to use, very powerful, and NO ADDITIONAL HARDWARE required! 
Works with TV or Monitor! This "DISK ONLY 1 ' 80 Column Word-Processor is 
simple to use while offering numerous features such as: 



• Completely Menu driven 

• Self contained DOS 

• Complete Text formatting 

• Built in Printer Drivers 

• Page numbering 

• Justify and Endfill 

• High Speed Cursor 

• Dictionary 

• 80 COLUMNS ON THE SCREEN! 
One expert has compared 40 domestic and foreign word-processors 
and concluded that the RICHMANS 80 Column Word-Processor is the 
best! Only $39.95 plus $4 S/H/l. (64K required). 



• Insert and Delete 

• Search Mode 

• view only mode 

• Memory Statistics 

• Alternate Output 

• Change screen Colors, 
borders, luminesce 

• Mouse compatible 



$39.95 



THE "QUINTOPUS!" 



$39.95 



The "QUINTOPUS!" is an inexpensive device that provides a tremendous 
amount of convenience while eliminating the problems associated with 
the endless "daisy-chaining" of peripherals (eg: drives, interfaces, printers, 
modems, cassettes, etc). The "QUINTOPUS!" is an I/O port expander that 
converts a single I/O output/Input into five additional outputs/inputs. Instead 
of daisy-chaining all of your peripherals (which often times results in passing 
a signal through 30 feet or more of cable!), the "QUINTOPUS!" allows each 
device to be connected directly to the computers through only three or 
four feet of cable. This is particularly useful when attempting to use 
ULTRASPEED or WARPSPEED data transfer rates. The "QUINTOPUS!" also 
provides the "extra" I/O ports often needed to connect devices not having 
daisy-chaining capabilities. Cable resistance and compacitance are 
greatly reduced thereby significantly improving the opportunity of 
accurate data transfers! Only $39.95 plus $4 S/H/l. 

$59.95 THE "QUINTOPUS!" $59.95 
(with SWITCHABLE PORTS!) 

This Deluxe version of the "QUINTOPUS!" has all of the above features with 
the additional benefits of two SWITCHABLE PORTS! This means you can 
connect two computers to one printer or two printers to one computer; you 
can switch in a computer/printer combination and while you're printing 
out a long document, switch in a second computer to access a modem, 
disk drive, cassette deck, etc! Switch multiple combinations of peripherals 

or computers without the hassel or re-arranging I/O cables simply flip 

a switch! Only $59.95 plus $4 S/H/l. 



LIMITED SPECIALS! 

Previously we listed these products under our FIRESALE ad but many of our 
customers feared that the software items might be smoke or water 
damaged. They're NOT! All of the items listed below are BRAND NEW.. .only 
their literature or packing may have slight cosmetic imperfections All items 
are fully warrantied! Quantities are limited! No rainchecks! 

LIMITED 

NORMALLY SPECIALS 



1. PILL (without case) 


$ 70 


$19 


2. SUPER PILL (without case) 


80 


22 


3. XL FIX ROM 


70 


19 


4. ULTRA MENU/DOS 


30 


19 


5. DISKCRACKER (Newest version) 


50 


19 


6. ELECTRONIC PHANTOM SECTOR MAKER DELUXE 


60 


35 


7. RICHMANS 80 COLUMN WORD PROCESSOR 


60 


29 


8. MIRACLE (Disk only Version of Impossible) 


70 


19 


9. IMPOSSIBLE for 800 or 800XL 


150 


69 


10. XL MATE 


30 


15 


11. COMPACTOR 


30 


15 


12. KLONE II (Generic HAPPY backup) 


100 


75 


13. SILENCER 


30 


19 


14. BLACK PATCH (MASTER) 


50 


25 


15. BLACK PATCH DATA DISKS 1 & 2 


20 


10 



•Order 5 items or more and we will pay the freight! 
These SPECIALS are for C.S.S. customers only - NO DEALER DISCOUNTS - NO RAINCHECKS 
- LIMITED QUANTITIES 



I/O BOARD 



BRILLIANT MISTAKE 

In my article on Atari Brain Transplants 
(Antic, November 1988) I offered to send 
a copy of the Public Domain 800 Upgrade 
by David Byrd to anyone who sent me a 
self-addressed, stamped envelope. 

Unfortunately, there was an error in the 
initial mailing. A reader, Elmo Ferguson, 
pointed out the error. I have since sent cor- 
rections to all the readers who requested 
information, and all future mailings will 
be correct. I apologize for any incon- 
venience to the readers. Incidentally, I 
mailed out over 80 copies of the upgrade 
during 1988. 

Lee Brilliant, M.D. 
Granada Hills, CA 

Readers interested in this upgrade should 
send a self-addressed, stamped envelope 
to Dr. Brilliant c/o Antic Magazine, 544 
Second Street, San Francisco, CA 
9410J. -ANTIC ED 

VARIABLE SPEED 



Lately I notice that quite a few BASIC pro- 
grammers replace commonly used cons- 
tants with variables (CI, C2, etc.) claim- 
ing that it increases execution speed. This 
is incorrect. Such a practice can save sub- 
stantial amounts of memory in large pro- 
grams, but actually causes them to run 
slightly slower. A simple timing loop will 
verify this. I just wanted to set the record 
straight — keep those 8-bit programs 
coming! 

James Hague 
Richardson, TX 

Antic Technical Editor Charles Jackson 
checked this out. He wrote a simple BA- 
SIC program that performed many 
mathematical computations. One ver- 
sion used variables. The second version 
used constants and ran about 0.12 per- 
cent faster. Another problem with using 
variables is that they can make a pro- 
gram very hard to follow, unless descrip- 
tive variable names are used. 
-ANTIC ED 



FLOPPED FLOPPIES? 

I think I have several bad disks. Could you 
publish a disk checker or tell me where 
I could buy one? The disks in question are 
all 3M DS, DD, RH soft sector, and the box 
says "for use with standard IBM PC/XT." 
Are these the correct disks for my system? 
Mel Walker 
Philadelphia, PA 

The Antic Arcade Catalog carries two 
programs that can help. If you have an 
Atari 1050 drive, try Sherlock 1050 
(APO 155, $19). Otherwise, use Disk 
Scanner (APO 145, $15.95). 

Basically, any 5*A inch floppy disk 
should work with your system, but you 
must format the disk, first. Boot with 
a disk that has DOS on it, and type [DOS] 
to go to the DOS menu. (Any Antic 
Monthly Disk has DOS on it. Simply 
choose selection Ifrom the main menu.) 

Be sure to remove your DOS disk be- 
fore formatting and insert the disk to be 
formatted. Formatting will permanently 
destroy all the data already on the disk, 
so be careful! Type [I] to format the disk, 
and follow the prompts. It's also a good 
idea to Write DOS Files to Disk after for- 
matting (option H). If you don't get any 
error messages in the process, your disks 
should be OAT. -ANTIC ED 



FAILING MEMORY? 

My 800XL seems to be suffering loss of 
memory. The Memory Test shows that I 
have 8K of RAM missing. I don't think I 
can RUN or even LOAD software requir- 
ing 48K. Is there a way to recover that lost 
RAM, or does my computer need ser- 
vicing? 

Gregory Pogonowski 
Rancho Santa 
Margarita, CA 

No, your 800XL is fine. Your XL's built- 
in BASIC is using that 8K of memory. The 
next time you use the computer, try this: 
First, unplug your disk drives from the 
computer (DOS takes up a certain 
amount of space, too). Next, hold down 



the [OPTION] key (this disables BASIC) 
and turn on your Atari. Run the Mem- 
ory Test again and watch that 8K 
reappear! 

As you might guess, many commercial 
programs should be booted with [OP- 
TION] held down, to free that memory 
and disable BASIC for programs that 
don't need it.— ANTIC ED 



'STEREO" AMP 



The Antic Music Processor (December 
1988 Super Disk Bonus) is truly one of the 
most addictive computer programs I have 
worked with. 

To hear my songs with a little more fi- 
delity, I used a coaxial cable to attach my 
Atari 800XL to my stereo-equipped VCR. 
The audio signal from my VCR goes to my 
stereo amplifier. The result was a very 
satisfying psuedo-stereo sound and I was 
able to make cassette recordings of the 
songs directly from my tape deck. 

Now, my only wish is for a way to play 
a "Musical Revue" of all the song files on 
a disk. 

David Warren 
Poway, CA 

It would be great to have a way to play 
all the songs on a disk, or even to loop 
songs to play over and over. We'll add this 
to the list of good ideas we're passing on 
to Steven Lashower, the program's author. 
-ANTIC ED 



Antic welcomes your feedback, but 
we regret that the large volume of mail 
makes it impossible for the Editors to 
reply to everyone. Although we do 
respond to as much reader correspon- 
dence as time permits, our highest pri- 
ority must be to publish I/O answers 
to questions that are meaningful to a 
substantial number of readers. 

Send letters to: Antic I/O Board, 
544 Second Street, San Francisco, 
CA 94107. 
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PRODUCT REVIEWS 



New 8-Bit Power Tools 

Quintopus!, XF551 Enhancer, Atari View 8, Review by Matthew Ratcliff 



QUINTOPUS! LETS ME CONNECT MY TWO ATARI COMPUTERS TO THE SAME SET OF PERIPHERALS 



QUINTOPUS! 

Quintopus! is an SIO port ex- 
pander for Atari 8-bit computers. It 
provides up to six (Computer Soft- 
ware Services added an extra port, but 
didn't change the name) SIO ports for 
attaching disk drives, modem or 
printer interfaces, or even multiple 
computers. Using Quintopus! can 
minimize cable tangles, improve data 
transfer reliability and even deliver a 
simple, but functional, "multi-user" 
environment. 

If you have more than two "dead 
end" devices in your system, such as 
an Atari XM301 modem and ICD's 
Printer Connection, for example, ca- 
ble juggling can be a real hassle. 

Quintopus! eliminates this problem. 
It can be connected directly to your 
Atari computer, and all other peripher- 
als may then be attached to the other 
ports on the Quintopus!. If you have 
more than five peripherals, they can 
be daisy-chained in the usual manner. 

Connecting your system this way 
will shorten the total cable length be- 
tween your computer and each pe- 
ripheral. This can improve the relia- 
bility of communications between the 
devices and computer, since there are 
fewer linkages and less "voltage drop" 
along the way. 

This is especially useful for such 
devices as the Atari XM301 modem 
and ICD's Printer Connection, which 
also get their power from the com- 
puter. Ideally, they should be the first 
devices in the "daisy chain" of periph- 



erals, for the most reliable operation. 
Quintopus! makes this possible. 

I reviewed the switchable version 
of Quintopus!, which provides some 
"multi-user" capabilities. This model 
has two toggle switches and two as- 
sociated connectors, marked with 
white dots. The most obvious appli- 
cation is to connect an Atari computer 
to each switched port. When the as- 
sociated switch is on, that computer 
has full access to the disk drives, 
modem, printer and other devices 
you may have attached. 

You can have both toggle switches 
on at the same time, although this isn't 
recommended. Everything will work 
fine, until both users try to access a 
peripheral at the same time (and it 
need not be the same peripheral). Nei- 
ther computer is "aware" of the 
other's presence, and each assumes it 
has total control of the Atari bus. 
When two computers try to write to 
the same disk at the same time, it's a 
sure bet your data will be scrambled. 

It might have been better if the 
switchable version had a double-pole, 
double-throw switch, which would 
insure that any time one port is 
switched on, the other is switched 
off. This would prevent any acciden- 
tal conflicts with peripherals. 

As it is, users sharing their systems 
can best avoid problems by employ- 
ing "manual handshaking," where 
one user asks the other for access to 
the peripherals, switches the other's 
computer off, switches his on, and 



then goes to work. Ideally, each 
would use RAMdisks for the majority 
of his work, switching the Quintopus! 
into gear only at backup time. 

Quintopus! is also useful in situa- 
tions where you frequentiy switch be- 
tween two like peripherals, such as 
printers. An Atari 1027 letter-quality 
printer may be attached to one port, 
for printing those formal letters and 
reports. The other switched port 
could provide access to your work- 
horse dot-matrix printer. 

When turning off one computer in 
a dual-computer setup, It's wise to dis- 
connect that computer at the Quin- 
topus! switch. If the other computer 
is on and both switches are enabled, 
the first computer will continue to 
draw power from the bus. This isn't 
good for either computer, and is best 
avoided. 

Actually, I can't think of any reason 
why you'd want both switchable 
ports on at the same time. If both 
ports are needed at the same time, 
then no switching is required. In that 
case, the less expensive version of the 
Quintopus! best applies. 

The Quintopus! consists of a small 
circuit board, not much larger than a 
3x5 inch index card. It contains a few 
components to handle the switching 
of the ports, a pair of toggle switches, 
and the six Atari SIO bus connectors. 
It's not pretty, since it isn't housed in 
a case. Computer Software Services 
said a case would have added about 
seven dollars to the final cost. They 
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decided to provide the most product 
at the lowest price, so the case was 
eliminated. 

I have no complaints about the lack 
of a case. If you do, you can buy a 
plastic project box from any Radio 
Shack, providing for an enjoyable eve- 
ning of drilling, cutting, filing and fit- 
ting your own custom Quintopus! 
package. Of course, it will be mostly 
holes, to accommodate all the con- 
nectors. 



The Quintopus! lets me connect my 
Atari XEGS and 800XL to the same set 
of peripherals. The XEGS video out- 
put is connected to the front of my 
Commodore 1702 monitor, the 
800XL to the rear. I can easily put the 
XEGS to work backing up floppies or 
growing fractal curves, and then flip 
the monitor and Quintopus! switches 
to the 800XL. Then I can get back to 
work with MAC/65 and the ICD MIO 
RAM disks and FA-ST hard drive on 



that next software project for Antic. 

Though not the most sophisticated 
form of "multi-tasking" available, the 
Quintopus! still delivers an elegant, af- 
fordable solution to an age-old 
problem — putting multiple com- 
puters to work with only one set of 
peripherals. 

$39.95, switchable version $59.95. Com- 
puter Software Services, P.O. Box 17660, 
Rochester, NY 14617. (716) 467-9326. 



WITH THE ENHANCER, YOUR XF551 CAN CREATE SIMILAR "FLIPPIES" OR STANDARD DOUBLE-SIDED DISKS. 



XF55T ENHANCER 

The XF551 Enhancer is a very 
useful hardware modification for the 
Atari XF551 disk drive. Very useful, 
and very confusingly advertised. 

According to the Computer Soft- 
ware Services ad for the Enhancer, 
Atari's XF551 drive "is a fine product 
with one major flaw ... it writes to 
side TWO of your floppy disks BACK- 
WARDS. This causes read/write in- 
compatibility problems with all other 
single sided drives made for Atari". 
These statements are not quite 
correct! 

For years, Atarians have been mak- 
ing what we call double-sided disks 
on our 810 and 1050 drives. This is 
done by notching the opposite side 
of the disk, flipping it over, and for- 
matting the reverse side of the disk. 
Each side of this disk has its own sep- 
arate directory, and each side is logi- 
cally considered to be a separate disk. 

The proper term for such a disk is 
"flippy", since you must flip the disk 
over to access side two. 

The Atari XF551 has two read/write 
heads, top and bottom. When a disk 
is formatted Double Sided, Double 
Density by Atari DOS-XE, SpartaDOS, 
or MYDOS, it is a single disk, logically 
as well as physically, with only one 
directory which charts BOTH sides of 
the disk. 

What's the difference, you ask? 
Well, there's no more disk-flipping. 



You can access a full 360K of data 
(both sides) without turning the disk 
over! The DOS and second disk head 
make access to side two of the disk 
completely transparent. 

It is true that side two of this disk 
is written in the opposite direction, 
relative to side one, but you couldn't 
use this disk as a flippy anyway, since 
there is no directory information on 
the second side. Assuming it was writ- 
ten in the "same direction" as the flip 
side of a flippy, there would still be 
no reasonable way to access the data. 

Users have been making flippies for 
so long that Atari built some "protec- 
tion" into the new XF551 drive mech- 
anism. To prevent accidental format- 
ting of the second side of a disk which 
is already double-sided, the XF551 
refuses to format the back side of a 
flippy disk — even if it is notched. 

The idea is to break a bad habit and 
protect your data. It is a good idea, 
but can also be annoying. 

The XF551 can read and write to 
the flip side of flippy disks as long as 
they are formatted elsewhere (on a 
1050 or 810 for example). 

The XF551 Enhancer defeats the 
XF551's format protection, letting you 
either create flippy disks, or the "true 
standard" double-sided disks, at the 
flip of a switch. The reality is that 
there are far more 1050 and 810 drives 
out there than XF551s. To exchange 
data with these other systems, or with 



other single-sided drives in your own 
system(s) in the most disk-efficient 
manner, you need the XF551 En- 
hancer. 

The Enhancer consists of a small, 
solid black module (which encases 
some electronics), a toggle switch, 
and seven wires that must be con- 
nected to various points in the drive 
mechanism and circuit board. One 
jumper must be cut and soldered. 
There are no pins to desolder and pull 
up, and no etch to cut. This makes in- 
stallation pretty simple and straight- 
forward. 

The 16-step instruction sequence is 
very nicely detailed, accompanied by 
a hand-drawn reference schematic. I 
found no need to look at the 
schematic, since the written instruc- 
tions were so well prepared. 

With proper lighting, soldering 
equipment and related tools, this in- 
stallation should take an experienced 
"solder jockey" less than a half hour. 
With care, a novice who knows how 
to wield a soldering iron with the 
proper attention to all details should 
be able to complete the job in about 
an hour. 

You must remember that any hard- 
ware modifications to the XF551 will 
void its Atari warranty. Therefore, it 
is best left pristine until the 90 day 
warranty has expired. (Antic takes no 
responsibility for the results of any 
hardware modifications.) 
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There are no ON/OFF indicators on 
the switch itself. With the switch in 
the direction of the "black wire," you 
can format the flip side of any disk, 
with or without a write-enable notch. 
In the opposite direction, the flip side 
of your disks are protected from ac- 
cidental formatting, just as originally 
designed by Atari. 

I wrote "FLIPPY" and "NORMAL" 
on opposite sides of a disk label, at- 
tached it to the rear of the drive above 
the drive select switches, drilled a 1/4" 
hole between the two words, and 
mounted the switch as prescribed in 
the documentation. Before locking 
down the nut, I made certain that the 
black wire was facing the "FLIPPY" 
side of the label. Some double-backed 
tape, provided on the XF551 En- 



hancer, made it a snap to attach the 
small black cube to the metal bracket 
just inside the rear of the drive. 

The disk worked fine the very first 
time. DOS was able to format the flip 
side of a disk, without a write-enable 
notch cut in the disk. Reading and 
writing was no problem after that. But 
I strongly recommend notching the 
flip sides of flippy disks, That way you 
are much less likely to confuse your 
double-sided and flippy disks. Also, 
a notched flippy allows writing to the 
back side of the disk without having 
the XF551 Enhancer enabled. It's wise 
to keep the Enhancer off at all times, 
except when formatting a flippy. 

The XF551 Enhancer lets you cre- 
ate flippy disks in the same manner 
as the 1050 or 810, with the added 



feature of being able to override write- 
protect tabs. This facilitates the ex- 
change of more data on fewer floppy 
disks, using 1050, 810, Rana, Indus, 
and other Atari compatible drives. 

I'm very pleased with the perfor- 
mance of the Enhancer. Since I have 
a 1050, and most of my friends still 
use them as their main drive, I must 
be able to format and duplicate flippy 
format disks easily, and the Enhancer 
lets me get the job done on my XF551. 
Now that I have the Enhancer in- 
stalled, I'm ready to retire my old 
1050 and add a second XF551 to my 
8-bit arsenal. 

$29.95. Computer Software Services, 
P.O. Box 17660 Rochester, NY 14617. 
(716) 467-9326. 



LOAD AND DISPLAY A WHOLE NEW WORLD OF COMPUSERVE GIF PICTURE FILES ON YOUR 8-BIT ATARI. 



ATARI VIEW 8 

Atari View 8 is a shareware prod- 
uct written and distributed by Don 
Davis. It is a utility for viewing pic- 
tures stored in CompuServe's GIF 
(Graphics Interchange Format). 

GIF is a graphics file format devel- 
oped and trademarked by Compu- 
Serve. It is a "device independent" 
standard that provides a method for 
transferring graphics from one com- 
puter to another. The various picture 
forums on CompuServe provide 
many visuals in this graphics standard. 

Atari View 8, Version 2.0 is a share- 
ware utility that lets you load and dis- 
play a GIF file in your 8-bit Atari. It 
also lets you zoom in or out on any 
portion of the image. If you like what 
you see, the program can also save the 
current display in Micropainter 
format. 

When you have logged onto 
CompuServe, type GO QUICKPICS to 
find some of the files best suited for 
viewing on the 8-bit Atari. There are 
16 libraries to choose from. Here all 
files are 20,000 bytes or smaller, with 
a resolution of no more than 640 X 



200 pixels, and 16 colors at most. 

I've gotten best results with 320 X 
200 graphics in either two or four 
colors, especially digitized images. 

When you go looking for these files 
on CompuServe, make certain that 
they are GIF format and not the older 
.RLE (run length encoded) format. 
The correct filenames will have .GIF 
extenders. 

I managed to find a GIF version of 
"Stoneage," by Darrell Anderson of 
Colorado Springs. He was the DEGAS 
art contest winner in Antic, July, 
1986. However, the original Atari ST 
image loses something in "transla- 
tion" when viewed on the 8-bit with 
Atari View The color mapping didn't 
work well, and no matter how much 
I zoomed in on the image it was diffi- 
cult to recognize its content. 

The documentation warns of such 
problems and provides advice on 
proper GIF selections. The original 
Stoneage was 640 X 200 pixels, in 4 
colors. Atari View does a very good 
job with most two-color and four- 
color images, regardless of size. 

Once you have downloaded some 



GIF files from CompuServe or other 
bulletin board systems, you can put 
Atari View to work displaying them. 
And then you can convert them to a 
format for customizing with your 
favorit paint software. There are many 
"clip-art" files in the graphics forums 
of CompuServe that could potentially 
be used with Print Shop, Newsroom, 
or the applications from Hi-Tech Ex- 
pressions. If you want to convert your 
graphics to other formats, Rapid 
Graphics Converter by Charles Jack- 
son (Antic, November 1985) will let 
you convert your Micropainter (.MIC) 
files into uncompressed Micro Illus- 
trator format, the format used by a 
wide variety of graphics products, 
Graphics Shop ($19.95, Antic Arcade 
Catalog AP156) will handle conver- 
sions to Print Shop format, and News- 
room Converter (Antic, December 
1988) converts images into News- 
room file format. 

Atari View takes its color data from 
the GIF file header and does not al- 
low you to adjust it. This is the only 
annoying limitation of the program. 
The documentation advises you to 
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adjust your display if the colors don't 
appear correctly. A sample color bar 
file is provided for use as a reference 
in these adjustments. This doesn't ac- 
count for personal tastes. No matter 
how well Atari View might match the 
original colors, personal interpreta- 
tions are somewhat subjective and 
should be adjustable. 

Also, the user may specify a default 
drive, but Atari View always looks at 
Drive 1 for its 4 'help file," not on the 
default drive. The directory function 
and filename input are two separate 
commands, so you can't view a list of 
GIF files while typing a filename. All 
user-friendly software should allow 
you to see a list of files at the same 
time that your input is being accepted. 

These are only minor gripes about 
an otherwise exemplary program. 
Atari View performs all other func- 
tions very well. The commands are 
straightforward, [R] to read a GIF pic- 
ture, and [ W] to write a Micropainter 
file. 



The most useful commands are 
[V]ertical, [Horizontal, and [S]ize 
scaling of an image. They are a little 
quirky to use at first, requiring that 
you adjust vertical and horizontal 
scaling down, using keyboard con- 
trols, before moving a pair of sizing 
boxes to select a zoom area. It would 
have been more elegant to allow 
joystick selection of these parameters. 
Atari View will even allow you to 
zoom out, or shrink an image on the 
display. 

You can achieve very good results 
by adjusting the color [Tjhreshold 
and the zoom area of an image. I 
found a two-color digitized image of 
Chuck Berry that looked pretty sharp 
on my PC display. On the Atari 8-bit 
it looked pretty sad when viewing the 
entire picture. I adjusted the width 
and height, then selected just the up- 
per body and guitar to zoom in on. 
The result was excellent, and I pressed 
the [W] key to write the picture to 
disk. 



Atari View 8 opens up a whole new 
world of graphics for your Atari 8-bit 
computer. No matter how large or 
complex the image, so long as the GIF 
picture fits on one disk, Atari View 
will show it to you. It isn't practical 
for viewing pictures with more than 
four colors, in most cases. But by 
zooming in on bits and pieces of a 
very large image, you can get a very 
good idea of what it contains. 

I hope that future upgrades to the 
Atari View package will include a sep- 
arate printing utility for creating hard 
copies of some of these excellent 
graphics. Atari View 8 is available for 
downloading from CompuServe's 8- 
bit Atari forum (type GO ATARI8), or 
may be ordered by mail from the au- 
thor. It's an excellent product for the 
price. 

$20 shareware contribution requested. 
Don Davis, 50 W. Holly Hill Road, Apt. 
13, Thomasville, NC 27360. (919) 
475-2627. 



NEW PRODUCTS 



DARKSTAR PLUS, 
CLEARINGHOUSE, 
LOTTO WHEELER 

(applications software) 
F/22 Press 
PO Box 141 
Leonia, NJ 07605 
(201) 568-6250 

DarkStar ($64.95) is designed to solve 
all of the exposure and filtration prob- 
lems normally encountered in the pho- 
tographic darkroom. Among the eleven 
different types of problems it can solve 
are print density, magnification, lens 
opening, neutral density, color balance, 
filter factors, emulsion batch, b&w pa- 
per grade and type. TimeStar ($24.95) 
allows you to program as many as 15 
sequenced events, each lasting up to 
100 minutes. Audible warnings, and 
automatic or manual starting of peri- 
ods are provided. Both DarkStar and 
TimeStar can automatically operate the 
Omega D5500 enlarger; the two are 



available combined in a single program 
called DarkStar Plus ($89.95). 

Without accessing any on-line data- 
bases, ClearingHouse ($49. 95) can 
help businesses detect bad checks. Re- 
quiring only a minute or two per 
check, the program runs through a se- 
ries of 20 questions that catch 95% of 
invalid checks, according to the folks 
at F/22 Press — without requiring ex- 
pensive telecommunications 
equipment. 

For those less cautious with their 
money, F/22 also produces WIN, a 
program designed to pick favored 
numbers to win any type of Lotto or 
lottery, even exotic games like New 
York's 10-number Keno. WIN is sold 
for outright purchase at a price of 
$99 95; if the buyer promises to pay 
F/22 Press one-percent of everything 
over the first $100,000 won with the 
program, the price is only $19 95. For 
the scientific lotto player, LOTTO 
WHEELER 2.0 ($24.95) uses "wheel- 
ing" systems popularized by mathema- 



tician Ivan Dimitrov to skew the odds 
towards the player. 

PRINT 'N STAC2 hmbbhm 

(printer stand) 
Suncom 

290 Palatine Road 
Wheeling, IL 60090 
(312) 459-8000 
$19.99 

The Print 'n Stac2 combines an ac- 
cessory paper tray with Suncom's two- 
piece PrinterMate universal printer 
stand. Separately, the two pieces retail 
for $25.98. 



New Products notices are compiled by 
the Antic staff from information 
provided by the products' manufac- 
turers. Antic welcomes such submis- 
sions, but assumes no responsibility 
for the accuracy of these notices or the 
performance of the products listed. 



MAY 1989 



9 



l\pe-In Software 



FEATURE APPLICATION 



VCR Labeler 

Instant cassette title directories. By Frank Walters 




Singing in 
the Ra i n , 



2750 
1:50 



Print labels 
for your VCR cassettes 
with this simple BASIC program. 



It works on any 8-bit Atari computer with at least 48K 

memory and a printer. 
Printer drivers for five 
different printers are 



Amazon Women 
On The- Moon 



0000 
1:45 



included, along with instructions for making your own 



Little Shop 
o-F Hor~ r~ or" s. 



0000 
2:22 



VCR Labeler is a simple BASIC pro- 
gram that makes videocassette labels 
out of standard 3 1/2x15/16 inch 
printer labels (such as Avery #4145 
labels). 

Each label has room for as many as 
three titles, along with the VCR 
counter number and running time in 
hours and minutes (h:mm). 

If you have more than three titles 
on a cassette, make two labels — they 



will fit on the edge of VHS box. You'll 
have to trim the left edges to fit two 
labels on a Beta box. 

GETTING STARTED 

Type in Listing 1, VCRLABEL.BAS, 
check it with TYPO II and be sure to 
SAVE a copy before you RUN it. 

When RUN, VCR Labeler will ask 
you to select the type of printer you'll 
be using. If your printer isn't listed, 



try the other drivers to see if any of 
them will work correctly with your 
printer. Otherwise, follow the direc- 
tions below for creating your own 
printer driver. 

PRINTING LABELS 

It's a good idea to put the labels in 
the printer before entering label infor- 
mation. That way, you'll be ready to 
print as soon as you've entered the in- 
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formation. 

The program first asks for the num- 
ber of titles for that label (1-3). This 
number determines the line spacing 
of the label. You can enter 3, even if 
you only have 1 title, leaving room on 
the label for more. That way, you can 
enter the VCR counter for the start of 
the next blank section. 

The program then asks for the first 
title. For each title, there is room for 
16 characters on each of 2 lines. The 
program will display two lines with 
a space between them. Type your ti- 
tle on the lines, but don't type a let- 
ter over the space. Simply space over 
it and begin the second line. Use the 
cursor keys to edit your line, then, 
when everything looks correct, press 
[RETURN] . The program will split the 
text into two lines and ignore the 
space between them. 

Next, type the starting counter 
number of that program. Legal entries 
are 0-9999, or press [RETURN] for 
0000. The program drops decimals 
and puts entries in four-digit form au- 
tomatically. 

Finally, enter the duration of the 
program — one digit for the hours, 
and two digits for the minutes. Use 
a space or colon to separate hours and 
minutes. For example, the program 
will accept either 1:30 or 1 30 as en- 
tries. [RETURN] will give the default 
time of 0:00. If the program is less 
than an hour, type a 0 for the hour 
value. 

After information for each title has 
been entered, the label will be dis- 
played on the screen. If necessary, you 
can re-type that section to correct any 
errors. 

After entering the information for 
all the programs on the label, just fol- 
low the prompts to print it. You may 
wish to make the first label a 3 -title 
entry, to check the spacing on the la- 
bel when you print. There is an op- 
tion to reprint a label if you have to 
adjust the labels in the printer. Once 
the triple entry label is centered, all 
following labels should be properly 
spaced, automatically. 



CREATING YOUR OWN 
PRINTER DRIVER 

If your printer is not supported, 
change line 5 to: 
5 TYPE = 6 

This selects the OTHER PRINTER 
subroutine, located in lines 4600- 
4680. You'll need to know a little bit 
about BASIC programming to take the 
necessary printer control codes from 
your printer manual and place them 
into VCR Labeler 

The program stores the printer con- 
trol codes in string variables. 

WIDE$, for example, contains the 
instructions to set your printer's char- 
acter width (called "pitch") to 12 
characters per inch (sometimes called 
"elite"), then sets your printer to 
double-width, or expanded print. 
Since expanded print is twice as wide 
as normal print, we'll get half as many 
characters per inch — 6 cpi. 

Most printer manuals give printer 
control codes in decimal. After find- 
ing the printer code, you'll have to 
convert it to a character string before 
you can add it to the program. 

Here's an example. According to the 
Star SG-10/15 manual, the code used 
to set the print pitch to elite (12 cpi) 
is: 27, 66, 2. 

Referring to an ASCII chart, we see 
that 27 is the ASCII code for the [ESC] 
character, 66 is the ASCII code for the 
letter "B" and 2 is the ASCII code for 
a [CONTROL] [B] character. 

Continuing on in the manual, we 
find the code used to set the printer 
to expanded print is: 27, 87, 1. 

Returning to our ASCII chart, we 
see that 27 is the ASCII code for the 
[ESC] character, 87 is the ASCII code 
for the letter W and 1 is the ASCII 
code for a [CONTROL] [A] character. 

When you finally place these con- 
trol codes into a string, they look like 
this: 

MIDE$ = "BBaSM[B" 

Note that this matches line 4310, 
which defines the SG-10/15 printer 
code for WIDE$. 



Follow this method to create the 
rest of the printer control code 
strings, listed below: 

WIDE$ — Double-width characters 
for 12 cpi, giving six double-width 
characters per inch. See above for a 
complete explanation. 

WIDEOFF$— Change back to 12 
cpi. 

BOLD$ — Near Letter Quality, or 
your best looking double-strike or 
emphasized font (must stay at 12 cpi). 

P66$ — Code for standard 6 
lines/inch or 66 lines per page. This 
determines the spacing between lines, 
not the form feed value. 

P88$— Set 8 lines per inch or 88 
lines per page. 

UONfl— Turn underline ON. 

UOFF$— Turn underline OFF. 

Up to four characters can be in- 
serted. If you need more, put them in 
and re-DIMension the appropriate 
string in lines 1000 to 1020. 

If your codes use less than four 
characters,- you must remove any of 
the extra little hearts from your 
strings. These hearts represent nulls 
(ASCII 0) and do nothing. However, 
if you don't have a double strike or 
NLQ mode, leave at least one heart in 
the BOLD$, so it won't send a car- 
riage return. 

Once your TYPE is set and the 
printer codes are determined, remem- 
ber to DELETE line 4605 of your 
subroutine, which is a trap to prevent 
that subroutine from being acciden- 
tally selected. 

If you get tired of entering your 
printer type every time you RUN the 
program, put that number in place of 
the 0 in line 5 . From then on the pro- 
gram will skip the printer setup when- 
ever you RUN it. 

Finally, be sure to SAVE your modi- 
fied VCRLABEL program before you 
RUN it. A 



Frank Walters has had work published in 
Computer Shopper and Compute!. His 
Lazy Loader appeared in the May 1985 
issue of Antic 

Listing on page 41 
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BONUS GAME 



SECRET OF 

Kyobu Di 

Shogun death maze of old Japan. By Bernard Taylor 

Return to medieval Japan in this exciting 
game of treacherous mazes and hidden treasures. 
Tins sequel to The Seven Skulls is a BASIC program 

that works on 8-bit Atari computers with 
at least 48K memory, disk or cassette. 

To merge the two programs, disk 
users LOAD "D : SHOGUN . BAS ' ' and 
then ENTER "D: LINES. LST" Cassette 
users: CLOAD Listing 1, then insert 
the separate cassette used for Listing 
2 and ENTER "C:". Remember to 
SAVE the completed program before 
you RUN it. 

MAZE OF DEATH 

Your position in the maze is 
represented by the torch you are car- 
rying. The torch burns oil which must 
be replenished from time to time. 

Yellow jars of oil can be found at 
various spots in the maze. Touching 
a jar with your torch will relight the 
torch if it has gone out or add oil to 
a dwindling supply. The amount of 
time left before the torch goes out is 
displayed at the bottom left corner of 
your screen. 

If necessary, the torch can be extin- 
guished by pushing the fire button on 
your joystick. 

To reach the secret hiding place of 



Ever since you became the Shogun 
of Japan with the help of the Princess 
Tanuki {The Seven Skulls, Antic, 
October 1988), things have been 
going from bad to worse. Someone 
has been systematically stealing the 
Sacred Treasures of Japan, including 
the Pearl of Wisdom, the Golden Hel- 
met of Truth, the Sacred Sword of Jus- 
tice and the All-Seeing Ruby-Eye of 
the Great Buddha. The Emperor has 
given you the task of recovering those 
national treasures. 

Even more important, the beauti- 
ful Lady Tanuki was recently kid- 
napped and is being held for ransom 
at the castle of Kyobu Di, the warrior 
monk. 

After a fierce battle, your army 
stormed the castle only to discover 
that the evil monk took Lady Tanuki 
to a secret chamber far beneath the 
castle. Lighting a torch, you and six 
of your bravest samurai enter the un- 
derground maze that separates you 
from Kyobu Di. . . 




GETTING STARTED 

Type in Listing 1, SHOGUN.BAS, 
check it with TYPO II and be sure to 
SAVE a copy before you RUN it. Antic 
Disk owners will find SHOGUN.BAS 
on the monthly disk. 

If you have trouble typing the spe- 
cial characters in lines 305-310, 1105, 
1150-1160, 1226-1236, 1254 and 
31000, don't type those lines. Instead, 
type Listing 2, check it wih TYPO II 
and SAVE a copy. When you RUN List- 
ing 2, it creates these hard-to-type 
lines and stores them in a file called 
LINES. LST (or to a separate cassette). 
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Kyobu Di yon must first pass through 
a large sinister maze. The stone walls 
of the maze contain numerous one- 
way doors that let you climb up or 
down, but only in one direction. 
These doors have been cleverly hid- 
den so you will have to knock on the 
walls with your torch to find them. 
Finding a hidden door automatically 
moves you to the other side of the 
wall. 

Scattered around the maze are land 
mines and trip wires. These obstacles 



If your 
torch goes out 
you'll be "left 
in the dark" 

indeed! 



can be seen and easily dealt with (or 
avoided) as long as your torch remains 
lit. If the torch goes out you'll be "left 
in the dark" as to their exact locations. 
A dangerous situation, indeed! 

Stepping on a land mine results in 
instant death to one of your rescue 
party. 

Crossing a trip wire tells Kyobu Di 
your location in the maze and he will 
try to kill you by throwing a battle ax, 
spear, or shuriken (pointed-star). He 
may even shoot an arrow at you. Al- 
though Kyobu Di has been known to 
miss with the spear, he is most profi- 
cient with all other weapons. So as 
soon as you hear the "twang" of a trip 
wire, move quickly to a spot where 
you will be out of the path of Kyobu 
Di's weapons. 

You begin the game with seven 
men. Each time you step on a mine 
or get hit by a weapon, you lose a 
man. A skull will be added to the bot- 
tom of the screen to signify your loss. 
Collecting seven skulls (deja vu, huh?) 
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ends the game. 

TREASURES 

Also in the maze are keys and iron 
chests. Keys are collected by touch- 
ing them with your torch. 

The different-colored chests can be 
opened only by touching them with 
the torch, but only while you possess 
a key of the same color as the chest. 

Some chests are empty. Others con- 
tain items you may find useful during 
your journey through the maze. Un- 
used keys and any other items found 
are displayed at the bottom of your 
screen. 

FINAL MAZE 

As you near the secret hiding place 
of Kyobu Di, you will find no mines 
or trip wires. You are now close 
enough for Kyobu Di to see the light 
from your torch and he will react ac- 
cordingly. 

The Final Maze also contains new 
hidden doors which let you pass 
through walls to the left or right. 

At the beginning of each game you 
may choose how, or where, the keys 
will be placed in the maze. Press [OP- 
TION] to place some of the keys in 
new random locations. Press the 
[SPACEBAR] to put all keys in the same 
locations each time the game is 
played. The challenge of Random 
Keys should be attempted only after 
you have become familiar with all 
aspects of the game. 

You are now ready to match wits 
with the warrior monk. Local vil- 
lagers have planned a fireworks 
celebration in your honor in the un- 
likely event that you successfully res- 
cue the Lady Tanuki. 

A final warning! Kyobu Di is a mas- 
ter of cunning and deceit. Many 
deadly surprises await those who act 
rashly or fail to unravel the Secret of 
Kyobu Di! A 



Bernard Taylor is a bulk mailing special- 
ist from Roseville, California. This is his 
second appearance in Antic 

Listing on page 46 
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GAME OF THE MONTH 



Cribbage Atari 

Play the game without worrying about lost pegs. By David Osborn 
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ow you can play the classic card 
game cribbage without needing 



to worry about finding the cribbage 
board — or remembering just how 
the scoring goes. Cribbage Atari is 
a fast BASIC program that works on 
any Atari 8-bit computer with at least 
48K memory, disk or cassette. 



Cribbage Atari is a fast, clear version 
of the popular card game. Pitting one 
player against the computer, it's also 
an easy way for beginning players to 
learn the scoring and strategy of crib- 
bage, before getting out the pegboard 
and challenging human opponents. 

Written entirely in BASIC, the 
graphics are kept simple enough that 
the play is at least as fast as the aver- 
age human opponent. The cards are 
displayed by rank and suit, instead of 
with miniature pictures of cards. 

All modesty aside, I believe most 
players will find Cribbage Atari a 
worthy opponent. 

GETTING STARTED 

Type in Listing 1, CRIBBAGE. BAS, 
check it with TYPO II and be sure to 
SAVE a copy before you RUN it. This 
is a long listing, but it's not at all tricky 
to type. 

To play the game, just follow the 
onscreen instructions. The program 
first displays the title and starts setting 
up the character set. Setting up takes 
some time, so to keep you from get- 
ting too bored the program will inter- 
rupt itself to ask you questions. 

The first question lets you set the 
speed of play. Beginners and first 
timers should try a setting of [5], so 
they have time to follow the scoring. 

Next the program asks whether you 
want to use a joystick or the arrow 
keys. Type a [K] to use the keyboard, 
or a (J] to use the joystick. 



If you use the joystick, move the 
selector arrow with the stick and 
press the button to signify your 
choices. 

If you use the keyboard, use the ar- 
row keys to move the cursor (you do 
not need to press [CONTROL].) Use 
the [INSERT] key to make your 



selections. 

Once the play screen comes up, 
you're dealt six cards. The program 
displays the suits in black and red, 
with numbers and letters indicating 
rank. When adding card values to- 
gether, each card is worth its face 
value. Aces count as one, all face cards 



it 
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count as ten. 

THE CRIB 

The first thing you must do is pick 
two cards for the crib. (You have to 
wait for the computer to take its turn 
first.) The cards you select are placed 
face down in the area marked either 
YOUR CRIB or MY CRIB. If you acci- 
dently choose the wrong first card, 
choose the space where that card was 
and your hand will be redisplayed so 
you may choose again. Once both 
cards are chosen — well, a card laid is 
a card played. 



The 
computer does 

the scoring, 
telling you each 
time what 
the points 
are for. 



The cards in the crib become a sec- 
ond hand that either you or the com- 
puter plays for points. When it's 
YOUR CRIB, you discard the cards 
that will be most likely give you 
points, while keeping as many points 
as possible in your hand. 

When the computer says it's MY 
CRIB, you try to get rid of useless 
cards that won't help the computer. 

Once you have selected your crib 
cards, the STARTER card is revealed, 
and you're ready to play. 

POINT SCORING 

There are two ways to get points in 
cribbage. Certain combinations of 
cards in your hand are automatically 
worth points — pairs, runs, flushes, 
and combinations of 15 (an eight and 
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a seven, a five and a ten, and so on.) 

The starter card is counted as a part 
of your hand. If you have the jack of 
the same suit as the starter card, you 
also get one point for ''nobs." 

The other way to get points is 
through game play. The player who 
doesn't get the crib plays first. If the 
computer plays a 10, and you follow 
with a five, you get two points for 
making a total of 15 . If the computer 
then plays a five, it gets two points for 
a pair. Runs of three or more consecu- 
tive cards (a two, three and four, for 
example) also count. A total of 31 gets 
two points. 

If one player can't play in turn with- 
out putting the total over 31, the other 
player gets to "go" until also unable 
to play. One point is awarded for the 
last card played, and the total returns 
to zero. 

As soon as all the cards have been 
played, it's time to count up all the 
points in each hand. 

If all this sounds confusing, don't 
worry — the computer does all the 
scoring for you, telling you each time 
what the points are for. Arrows point 
to the cards involved, and a message 
flashes at the bottom of the screen, 
such as "PAIR FOR 2" or "15 FOR 2". 
It's an excellent way for beginners to 
learn the scoring system. (Experi- 
enced players will probably want to 
speed up the game at the first screen, 
since they don't have to worry about 
following the scoring.) 

When playing with cards, cribbage 
scores are kept on pegboards. The 
computer simulates this by showing 
rows of pegs onscreen, one peg for 
each point. The screen's perimeter al- 
lows only 60 peg spaces, so the com- 
puter will lap the perimeter twice, for 
one game of 121 points. A 



David Osbom of Bismarck, North 
Dakota has a B.S. in mathematics and 
enjoys games of all kinds, especially 
strategy. This is his first appearance in 
Antic. 

Listing on page 38 
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IN 
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Animate any Print Shop icon! 



Super Locator 
finds text fast 



AUTORUN Selector 
gives you boot-up choices 

2 -Column Printing From BASIC 



Antic Music Processor 
SONG CONTEST WINNERS 




HAVE A QUESTION 
ABOUT YOUR 
SUBSCRIPTION? 

Get an answer fast! 

Call 
(415) 372-6002 

Write: 

Antic Customer Service 
P.O. Box 1569 
Martinez CA 94553 
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Atari BASIC 




TARI BASIC ENHANCEMENTS 
IS A COLLECTION OF VERY 
USEFUL ROUTINES THAT CAN BE USED FROM 



i 



BASIC—WITHOUT TOUCHING YOUR 
PROGRAM IN MEMORY. THESE 
SHORT BASIC PROGRAMS 
WILL WORK ON 8-BIT 
ATARIS WITH AT LEAST 
32K MEMORY AND 
DISK DRIVE. 



There I was sitting at my Atari at 3 
a.m. trying to save my just-completed 
masterpiece. I kept getting an ERROR 
162 (whatever that means) no matter 
how many times I tried. I had left my 
BASIC Reference Manual at a friend's 
house, so I couldn't even look it up. 

As my fingers danced across the 
keyboard typing the word DOS, I got 
a bad feeling, and stopped. What if 
there was no MEM.SAV on this disk? 
All my work would be lost. Now 
what? I grabbed for a fresh disk, only 
to find that I had none that were for- 
matted. No formatted disks, ERROR 
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Library of high-powered routines. 



162, and not able to go to DOS. What 
to do? 

ENTER (pun intended) my Atari BA- 
SIC Enhancements. 

With these BASIC Enhancements I 
could look up that error code, delete 
unnecessary files, and more. All with- 
out leaving BASIC, and more impor- 
tant, without affecting one line of my 
precious program. 

Now the world was assured of an- 
other great 8-bit program and I was 
able to get some sleep. 

BASIC ENHANCEMENTS 

Atari BASIC Enhancements is a col- 
lection of useful routines that help 
you get the most from Atari BASIC. 

Unlike a BASIC wedge or other Ex- 
tended BASICS, the enhancements 
will work with any 8-bit Atari and 
Atari BASIC Rev. A, B, C or compati- 
ble BASICS. 

Each enhancement file consists of 
a collection of BASIC statements 
which have no line numbers. Since 
there are no line numbers, the BASIC 
statements are executed immediately. 

For example, the LOCK Enhance- 
ment will lock a given disk file. Here's 
what the LOCK Enhancement file 
looks like: 

CLOSE #1:CLR :DIM Z$(18):? 
"Which File to LOCK?" 

? " Ex. D2:DATA.EXE":INPUT 
#16, Z$:? "Locking ";Z$:XIO 
35,#1,0,0,Z$ 

You could just as well have typed 
these lines in immediate mode, but 
keeping these commands in a single 
file is much more convenient. 

The Enhancements use no program 
memory and don't touch Page 6. Any 
program in memory is untouched and 
can be LISTed or RUN as soon as the 
BASIC "READY" prompt is restored. 

Written for Atari DOS 2 users, most 
of the Enhancements should also 
work with any compatible DOS. 



Known exceptions are noted in each 
Enhancement's description. But the 
routines automatically test for com- 
patibility before they begin, just in 
case. 

GETTING STARTED 

Type in listing 1, ENHANCE. BAS, 
check it with TYPO II and SAVE a 
copy to disk. Have a second disk 
ready, freshly formatted with DOS 2 
and with the file DOS.SYS on it. 
When you RUN "D: ENHANCE. BAS", 
the program will bring up a menu. 

You can choose which enhance- 
ments you want written to the disk, 
each as a separate file. Antic Disk 
owners will find all the enhancements 
already on this month's disk. 

The BASIC Enhancements on this 
disk are all ENTERed from BASIC in 
the Immediate Mode by typing EN- 
TER "D:FILENAME" and then follow- 
ing the screen prompts. 

Copy any or all of them to your 
work disk or RAMdisk, to eliminate 
disk swapping. The Enhancements 
will run faster from a RAMdisk. Drives 
1 — 8 are supported. For proper oper- 
ation, do not rename the Enhance- 
ments "HEX," "DEC," or "ERROR." 
Following are descriptions of each 
Enhancement. 

THE ENHANCEMENTS 

BINLOAD: DOS 2 equivalent "L" 
Binary LOAD. Load and Run any ma- 
chine language program that can be 
run with BASIC installed. NOTE: For 
use only with DOS 2 or DOS 2.5 

DEC: DOS 2 equivalent— None. 
Decimal to Hexadecimal conversion. 

HEX: DOS 2 equivalent— None. 
Hexadecimal to Decimal Conversion. 
The decimal and hexadecimal files 
work together. Both are written to 
your disk at the same time. 

DELETE: DOS 2 equivalent "D" 
Deletes a FILE. 



DIR. DOS 2 equivalent "A" Disk 
Directory. This Enhancement will al- 
ways end with an ERROR 136. This 
is normal and may be disregarded. 
NOTE: when using DOS 2.5, file- 
names shown in <brackets> use sec- 
tors above 720 and are not available 
to DOS 2. 

DRIVES: DOS 2 equivalent— None. 
Examine/Set which Disk Drives DOS 
will support. NOTE: Modifies 
DOS.SYS. 

ERROR: DOS 2 equivalent— None. 
Gives an English translation of Error 
Codes. 

ERROR. 164: DOS 2 equivalent— 
None. Enable/Disable ERROR 164 
handling by DOS. NOTE: Modifies 
DOS.SYS. Not Compatible with DOS 
2.5 

LOCK: DOS 2 equivalent "F" Lock 
File. 

OPENFILE: DOS 2 equivalent— 
None. Examine/Set number of File 
Buffers. (Number of Files that can be 
OPENed at the same time). NOTE: 
Modifies DOS.SYS. 

RENAME: DOS 2 equivalent "E" 
Rename File. 

UNLOCK: DOS 2 equivalent "G" 
Unlock File. 

WRITEDOS: DOS 2 equivalent "H" 
Write DOS Files. NOTE: Only 
DOS.SYS is written. Use whenever 
DOS has been modified and you want 
to make the changes permanent. A 

ANTIC ED: If you want to make a 
MEM.SAV without going to DOS, the com- 
mand to do it is: 

OPEN #1,8,0,"D:MEM.SAV":CLOSE #1 



Paul Alhart ofLompoc, California is an 
Electronics Technician in the aerospace 
industry, and an active member of his 
local users group, the Atari Federation. 
His Tech Tip DefaultWriter Plus appeared 
in the July 1988 issue of Antic 

Listing on page 42 
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SUPER DISK BONUS 



Make your own talking programs that 





Covox Coach and Yak-Spell 



This month's Super Disk 
Bonus shows you how to 
add true digitized speech 
and sounds to any program you write. 
The May 1989 Antic Disk brings you 
a double-feature by Matthew Rat- 
cliff— -a stand-alone talking program 
called Yak-Spell, plus the Covox 
Coach tutorial that enables you to cre- 
ate your own talking programs with 
the $49.95 Covox Voice Master Junior. 

You can use Yak-Spell even if you 
don't have the Voice Master Junior. 
You'll find it on the Side B of this 
month's Antic Disk as YAKSPELL.BAS, 
along with the speech and spelling 
files that it needs. 

GETTING STARTED 

Just RUN "D:YAKSPELL.BAS" and 
you'll see a list of available spelling 
files. Type in the name of the file you 
want to use. You don't need to type 
the .SPK extender. Yak-Spell will quiz 
you — in Matt Ratcliff s own voice. 



By Matthew Ratcliff 



If you own the Covox Voice Mas- 
ter Junior you can create your own 
Yak-Spell speech files. Later in this ar- 
ticle we'll explain how to do this, us- 
ing the Yak-Spell Builder, 
SPLBLD.BAS, also found on your 
Antic monthly disk.. 

Yak-Spell prompts you for the drive 
where the dictionary files are located 
(matching speech files are expected to 
be on the same disk). A directory of 
all the spelling files is then listed. You 
only need to type the name of the les- 
son to study, such as ANIMALS from 
this month's Antic Disk. The spelling 
and speech files are loaded into mem- 
ory, the main screen of the program 
is displayed and the first word is 
spoken. 

At the top of the display is the pro- 
gram title, followed by the name of 
the lesson now under way. Below this 
is a line indicating the number of the 
word to be spelled and the total words 
in the quiz. At the bottom of the dis- 



play is a box with information about 
special keys that Yak-Spell under- 
stands. 

Press the asterisk key [ * ] to hear a 
word spoken again, as often as desired 
with no penalty. Pressing the [ES- 
CAPE] key will display a series of 
dashes (-) below the word line, one 
"blank" for each letter which has not 
been spelled. If the current problem 
has multiple words, the spaces will be 
shown as underline (_) characters. 
These spaces must be typed in the 
correct position by pressing the 
[SPACEBAR]. Near the center of the 
screen is a question mark (?), where 
the actual spelling takes place. 

To spell the word, simply type it 
out. If you are really stumped, press- 
ing the question mark key [SHIFT] [/] 
will coax the next correct letter out 
of Yak-Spell. However, this is the same 
as misspelling the word! Pressing [ES- 
CAPE] to get "blanks assistance" 
comes with no penalty, but results in 
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play back without hardware add-ons. 




a warning at the end of the lesson. 

If you make a typing mistake, the 
"try again" phrase will be spoken and 
the error logged. For each correct key 
press, a pleasant "ding" is heard, un- 
til the word is completed. If the word 
was spelled correctly, Yak-Spell will 
say you are "correct" and move on to 
the next word. 

After all words have been spelled, 
a percentage score is computed and 
displayed, along with a letter grade 
and rating. You are then prompted to 
quit or practice some more. If you 
continue, you can study the same les- 
son again, or select a new one. 

Your May 1989 Antic Disk- 
featuring the talking double-bonus 
Yak-Spell and Covox Coach — as well 
as every type-in program from this 
issue — will be shipped to you within 
24 hours after receiving your order. 
Just phone Toll-Free to the Antic Disk 
Desk at (800) 234-7001. The 
monthly disk is only $5.95 (plus $2 
for shipping and handling) on your 
Visa or MasterCard. Or mail a $5 . 95 
check (plus $2 shipping and handling) 
to Antic Disk Desk, 544 Second 
Street, San Francisco, CA 94107. 

TALKING SOFTWARE 

The Covox Voice Master Junior 
($49.95) is a magnificent educational 
tool. With it, you can add true digi- 
tized voice and sounds to any pro- 
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gram. Covox Inc. is at 67 5 -D Conger 
Street, Eugene, OR 97402. (503) 
342-1271. 

This coaching session will help you 
create your own talking programs. 
We'll use Yak-Spell as a demonstra- 
tion. There are two steps in develop- 
ing talking software. First, you must 
write a program which uses the 
Covox software and hardware to cre- 
ate your speech files. 

Second, you must write another 
program to read these speech files and 
"speak" them to the user. This should 
be a "stand-alone" program — it 
should not need any Covox hardware. 
Any Atari owner should be able to 
RUN and hear your program. 

Covox provides excellent subrou- 
tines for controlling the Voice Master 
Junior. These make it a snap to create 
speech files. With their PLAY utility, 
you can easily create your own stand- 
alone talking programs. 

There is one significant limitation 



with the PLAY utility, however. It 
always loads speech data files to the 
same location, 16384 ($4000), right 
in the middle of BASIC memory. This 
leaves only five or six kilobytes of 
main memory for your own program. 
This is too inflexible for any serious 
talking software. 

So for more flexibility I wrote an 
assembly language USR routine which 
loads a speech file into a BASIC string. 
BASIC will manage the string's loca- 
tion in memory, keeping it clear of 
your program (and giving you one less 
detail to worry about). Now, you can 
control the amount of memory allo- 
cated for speech data. 

For example, Yak-Spell uses a 
12,000 byte buffer for speech data. 
This buffer will hold about 20 words, 
leaving another 20K of RAM for your 
program. That's about four times 
more RAM than the original Covox 
load-and~play utility gives you. 

RECORDING SPEECH 

You'll need the Covox Voice Mas- 
ter Junior hardware and software to 
record your own speech files. To write 
a speech builder program, you must 
first RUN "D:VM800" from the Voice 
Master Junior program disk. This in- 
stalls the VM.800 handler, letting your 
Atari LEARN, SPEAK, and SSAVE 
words. For Yak-Spell, I first wrote 
SPLBLD.BAS, the program that creates 
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the speech files. 

Next, load SPLBLD.BAS from this 
month's disk. SPLBLD.BAS must be 
RUN with the VM.800 Covox Voice 
Master handler installed! When RUN, 
SPLBLD.BAS asks you to plug a 
joystick into port 1, and to plug the 
Voice Master Junior microphone into 
port 2. It also asks if VM800 has been 
RUN. Next, SPLBLD.BAS asks you to 
type in the number of the drive on 
which the speech files will be saved. 

Next, SPLBLD displays a directory 
of all spelling files. These files have 
.SPL extenders. Now type in the name 
of the new spelling file. If the file al- 
ready exists, it will be replaced with 
the new one. 

Yak-Spell Builder then prompts you 
to type in the first word in your spell- 
ing list. It's best to work from a pre- 
pared word list with carefully 
checked spelling. After each word is 
entered, you'll be asked to to verify 
the spelling and correct any mistakes. 

Now speak the word. Remember, 
the word must be spoken clearly, dis- 
tinctly and carefully. You'll see the 
familiar reverse video plus sign at the 
top left of the screen. This means that 
the program is learning the current 
word. 

Yak-Spell Builder will immediately 
play back the word. If it doesn't sound 
right, pull back on the joystick. Then 
you can re-iecord the word. You can 
do this as many times as necessary to 
get just the right sound. When you 
hear a sound you like, press the 
joystick button to save it, and con- 
tinue with the next word. 

Immediately after the word is 
learned, Yak-Spell Builder displays the 
''total vocabulary size." This number 
shows you how much RAM your 
speech file is using. 

The session ends when 20 words 
have been typed in, or when you 
press [RETURN] instead of typing a 
word. 

Next, the program will ask you 
to say "correct" and "try again." 
Yak-Spell uses these words to tell you 
if you spelled the word correctly. 



Of course, you can get creative and 
make special sound effects, sing a few 
notes of a favorite ditty, or execute a 
Bronx cheer instead of the above 
phrases. 

The spell builder then writes all the 
words to a disk file, using the name 
previously specified with an .SPL ex- 
tender. All the speech data learned by 
the Voice Master is saved to another 
file by the same name, but with an 
.SPK extender. Finally the user is 
prompted to print a hardcopy list of 
the words. 

Generally it is a good idea to print 
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the list, and let the "student" review 
it before taking a Yak-Spelling exam. 
No matter how carefully the words 
are pronounced, something is always 
lost in the translation from human 
voice to computerized digital data. 
Occasionally, foreknowledge of the 
word is a necessity for understanding 
what the computer is "saying." 

It would be nice to have a separate 
editor program for updating speech 
and dictionary files. But if the spell 
builder had gotten any larger, it just 



would not run under Atari DOS. 
When SPLBLD.BAS is loaded and its 
arrays initialized, there are only 65 
bytes of free memory. 

A separate editor program could 
SLOAD the speech data and word file, 
and then let the user correct spelling 
mistakes, make additions, deletions, 
or relearn words. It would be a real 
challenge to provide all that flexibil- 
ity with only 2K or 3K of BASIC code. 

TECHNICAL NOTES 

When RUN, Yak-Spell first initial- 
izes all its arrays, including TALKJ, 
a 12000 byte speech data buffer. Then 
a subroutine DIMensions and initial- 
izes COVLJ5 and COVP$ strings, which 
will contain the load and play assem- 
bly language routines, respectively. 

Lines 1010 through 1250 and the 
file COVOX.SYS make up a complete 
"tool kit" for writing talking programs 
which require no extra hardware or 
memory-hungry support software to 
use existing speech data files. 

There are several steps to follow to 
put the Covox Coach tool kit to work. 
First, initialize all working strings, in- 
cluding the speech buffer string. A 
12K buffer can hold about 20 to 25 
separate words. 

Next, call the subroutine to load the 
file COVOX.SYS into the COVLS and 
COVP$ strings. This begins at line 
1130 in YAKSPELL.BAS. (All lines 1010 
through 1250 from YAKSPELL.BAS 
are required.) 

After initializing these strings, a 
speech file may be loaded as follows: 

TALK$ = T>:FOOD.SPK":REM 
TALKJ was DIMendioned to 12000 
bytes. 

ERR = USR(ADR(COVL$), 
ADR(TALK$), 12000):REM This is 
the COVox load USR routine. 

The assembly language USR rou- 
tine, above, expects three values: 

—The address of the string contain- 
ing the actual machine language code 
for the USR routine, ADR(COVL$). 

—The address of the speech buffer, 
ADR(TALK»). 

—The total size of the speech buffer, 
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12000. 

The speech buffer (TALK$) must 
contain the filename of the speech file 
before the USR call. After the USR call 
is through, an error status code is 
returned in the variable ERR. If ERR 
= 136 is there, the end of the file was 
reached before 12000 bytes were 
loaded. This means the entire speech 
file fit into the speech buffer, TALKJ . 

If ERR = 1, the USR routine was 
able to load 12000 bytes of speech 
data, but did not reach the end of the 
file — more data is available to load. In 
other words, the speech file is bigger 
than TALK$.) The only problem this 
causes is that some words may get 
"chopped off when played back. 

The formula for calculating mem- 
ory and total words for a speech file 
which has just been loaded is: 

BASE=PEEK(256)*256 

MEM = PEEK(BASE + 256) + 256* 
PEEK(BASE + 257)-BASE + 
256 

TW =PEEK(BASE + 259) 
These equations, when used im- 
mediately after loading a speech file 
with the USR routine described 
above, give you three pieces of infor- 
mation: 

— BASE is the starting address of the 
Covox speech data. Note that BASE is 
not necessarily the same address as 
the buffer string. It will be rounded 
up to the next page (256 byte bound- 
ary address). 

—MEM tells you how much RAM 
you need to hold the entire speech 
data file. 

— TW is the total number of words 
defined in the data file. 

If MEM is larger than the speech 
buffer, TALK$, then you must increase 
the string size, then adjust the USR call 
which loads the file into the string. 
Alternatively, you may re-record the 
speech file, talking faster to make it fit. 

There is no need to worry when 
the speech file is larger than the string 
reserved to hold it, since the load rou- 
tine will not load any more than the 
amount specified in the USR call. 

Use the equation for MEM, above, 



to find out how much larger the 
buffer string must be if the error code 
is a 1 instead of 136. 

The Covox play utility requires 
speech data to begin on a page bound- 
ary (an address evenly divisible by 
256). The loader places the page 
number in memory location 256 
($0100). For example, 16384 ($4000) 
is an address which is evenly divisi- 
ble by 256 ( 16384/256 = 64 ). In this 
case, the loader will place a 64 into 
memory location 256. 

Now, use the BASE equation above, 
instead of "BASE = 16384", as shown 
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in the Covox Voice Master Jr. manual, 
appendix I. Then all the other sam- 
ple computations given in pages 29 
through 32 of the manual will work 
properly. 

After a speech file has been success- 
fully loaded, the words may be spo- 
ken. The USR call is: 

A = USR(ADR(COVP$),WORDNO, 
VOL,SPEED,SCREENMODE) 

This USR routine expects five 
values: 

—The address of the string contain- 



ing the actual machine language code 
for the USR routine, ADR(COVPS). 

—The number of a word previously 
LEARNed with the assistance of the 
VM800 software, WORDNO. This 
may be any value from 0 through 63. 

—The amplitude, or volume of the 
speech, VOL. This may be any value 
from 0 to 15, and works like BASIC'S 
SOUND command. You'll normally 
keep this parameter fixed at 15. 

—The SPEED of playback, which 
may be any value from 0 to 4. Nor- 
mally LEARN mode is done at a speed 
of 2. For correct sound, the playback 
speed should match it. Experimenta- 
tion with the SPEED results in some 
interesting effects which are of very 
limited usefulness. 

—The SCREENMODE should be 34 
to keep the display on during play- 
back, or 0 to turn it off. With the 
screen off, the speech quality is only 
slightly better. 

SOURCE CODE 

The file VMLOAD.M65 is the 
MAC/65 assembly language source 
code for the relocating loader utility. 
Study of this file, along with the notes 
in the Voice Master Junior user man- 
ual (pages 29-32), will reveal the in- 
ternal structure of the data files. 

The play routine is simply coded 
as .BYTE statements, taken from the 
PLAY program provided on the Voice 
Master Jr. disk. With minor modifica- 
tions, VMLOAD.M65 may be used in 
stand-alone assembly language or AC- 
TION! programs. 

Employing this new load utility for 
Covox speech files, Yak-Spell can 
grow by another 12K of code, even 
with its 12K speech buffer initialized. 
With a little study of the Yak-Spell 
program, you should be able to cre- 
ate some very educational and enter- 
taining verbose software for your fam- 
ily and friends. 

Note: The author wishes to thank 
Kevin Gevatosky and Brad Stewart of 
Covox Inc. for their generous, in- 
finitely patient assistance with the Co- 
vox Coach project. A 
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Irrational 
Computing 



By Brian Siano 




U; 



'Kook Mail" database for fun and profit. 



► ntil I began my Kook Mail 
project, I was hardly 
aware of how much the 8- 
bit Atari computer could 
do in terms of a personal business. I'd 
used AtariWriter for freelance word 
processing (always a moneymaker 
when you live near a university), my 
own writing — and games, of course. 
But the Kook Mail project illustrated 
just what I could do with an Atari. 

I have always been fascinated with 
pseudo-science — perpetual motion 
machines, flat-Earth theories, myths 
about Atlantis and the Bermuda Tri- 
angle, quack medicine and UFO sto- 
ries. Whenever I came across a really 
good piece of strangeness — 
something that was detailed, funny 
and highly original — I kept it. Some- 
times this made my housemates ner- 
vous, but I had a good time. 

So I had a small, disorganized col- 
lection when the Fall '86 issue of the 
Whole Earth Review came out. It was 
dedicated to ''Strange Myths and Ec- 
centric Science," and the funniest ar- 
ticle was an account of collecting 
Kook Mail by Ivan Stang. 

Stang, a co-founder of the parody 
cult, Church of the SubGenius, had 
collected this stuff for years, culling 
it from ads in the National Enquirer, 
Fate, Soldier of Fortune and the 
Weekly World News. Stang included 
a lengthy list of recommended ad- 
dresses, with hilarious descriptions of 
what they had to offer. All you needed 
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to do was write for information. I 
decided to put my Atari to work on 
my own collection, so I set up a 
SynFile + database, adding Stang's list 
to my own. 

The file contained the name, ad- 
dress and brief description of each or- 
ganization. I also included a set of 
evaluations ranging from "Dull and 
Boring" to "Truly Strange Minds" and 
"Top Of the Heap." My classification 
system included Weird Science, UFO 
Contactees, Lone Eccentrics and New 
Age. I also kept records of the as- 
sumed names I'd used — no, I didn't 
want these people to know my real 
name. 

I found a novel use for SynFile's 
mail-merge capabilities as well. Each 
record has a long section of text 
marked Insert. This could contain a 
sentence designed for a given group. 
For example, "I am interested in the 
truths that the scientific establishment 
won't tell us about." This way, my re- 
quests for information don't look like 
a form letter. And it's a nice way to 
exercise the database. 

In the book, "Give Me that Prime 
Time Religion" (Oklahoma Book Pub- 
lishing, 1979), author Jerry Sholes 
describes how a prominent evangelist 
uses a sophisticated mail-merge data- 
base to help him read, answer and 
pray over the 20,000 letters he 
receives daily. The letters are first 
categorized by problem type — marital 
problems, physical problems, politi- 
cal fears, etc. Each letter goes into the 
database and computer-generated re- 
plies are sent out with stock para- 
graphs regarding specific problems. 
Then the evangelist actually prays 
over computer-generated lists of ad- 
dresses. 

Granted, in SynFile + the Inserts 
would be limited to 255 characters 
(though you can get around that). But 
I was doing something roughly com- 
parable to a multi-million dollar 
direct-mail system — on an Atari 
130XE system that cost less than 
$400. 

The project has gone well. My data- 



base has nearly 140 addresses, and I 
have a substantial file of mystical 
pronouncements, flying saucer 
blueprints and sure-fire methods for 
contacting the Advanced Guardian 
Veknors from Venus Etheria. 

ALL KOOKS? 

Some Antic readers might resent 
seeing ideas they believe in catego- 
rized with others they find irrational. 
For example, I don't believe in UFOs, 
so my database has plenty of UFO- 
oriented groups. The phrase "Kook 
Mail" is perhaps a bit misleading. 



Are they 
crazy, or creative 
eccentrics? 



Many organizations on my list can 
best be described as creative eccen- 
trics and are not crazy — not by a long 
shot. I can't help feeling a kind of 
respectful affection for the creativity 
involved. 

I was surprised at the project's 
popularity in my neighborhood. 
Friends and acquaintances wanted co- 
pies of my address list, and suddenly 
I was in the self-publishing business. 
SynFile + generated the initial lists 
with its Labels function and I ex- 
panded the descriptions with 
AtariWriter. 

With a short introduction and a 
cover made with Print Shop software, 
the whole 15-page booklet sold pretty 
well at $4 a copy. And many of my 
customers have material from other 
sources, so my list just keeps grow- 
ing. Here are some original entries — 
including mistakes in grammar, spell- 
ing and punctuation accurately 
quoted from the sources: 

WEIRD SCIENCE 

ESP Lab of Texas 



Box 216 

219 Southridge Drive 
Edgewood, TX 75117 

Free info 

Truly Strange Minds 

FUN approach to Magick. NO HOG- 
WASH. Robust, folksy, and intention- 
ally funny mailings for 4 Astral Al" G. 
Manning's ESP course tell of corre- 
spondence courses, teaching tapes 
and magickal supplies. Lots of 
jokes — this is more like David Letter- 
man than Edgar Cayce. 

Flat Earth Research Society 

Covenant People's Church 
Box 2533 

Lancaster, CA 93539 

Flat Earth News, $10 per year. 
Truly Strange Minds 

"We have proved earth flat, by exper- 
ment and can be demenstrated, most 
is water. . . Gods Law stillstands. . .' 
water seeks its won LEVEL., and lays 
flat." Extremely poor typists are the 
last bastions of true rationality, fight- 
ing the false religion of Science. "We 
DO NOT SAY FALL OFF FLAT 
WORLD, WE SAY YOU WOULD ALL 
OFF THE GREASE BALL WORLD." 

RELIGIONS & CULTS 

Pyramid of One 

251 NW Bailey 
Hillsboro, OR 97123 

SASE 

Top Of the Heap 

"Heavenly Emergence of Supreme 
Being. Highest awareness/grace/heal- 
ing. Wonderful life transformations. 
Dynamic activities transcending 
body/ego/drugs. Unlock gateway to 
miracles." 

POLITICS & CONSPIRACIES 

Monster Raving Loony Party 

13 Chippenham Mews 
London W9, England 

Write for info 
Hysterically Funny 

Remember that Monty Python rou- 
tine about the election returns, featur- 
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mm type-In Software 

Butter- 
fingers 

By Kevin Gevatosky 

If you ever lost work 
by pressing the [CLEAR] key 
when you meant to press [INSERT], 
Butterfingers is for you. This short BASIC 
translation of a machine-language 
routine works on 8-bit Atari 
computers of any memory 
size, with disk drive. 



ing the Silly Party and Tarquin Fintim- 
linbinwhinbimlin Bus Stop F'tang 
F'tang Ole Biscuit Barrel? That really 
happens. Screaming Lord Sutch has 
been doing this stunt, running for 
Parliament, for the past several years. 
His platform is that he would do ab- 
solutely nothing, thus following 
precedent. Dignified British election 
officials end up having to read the 
rosters of such groups as the New 
Year's Eve party and the Bring Your 
Own Party. 

American Imperial Party 

Spengler Group 
P.O. Box 65085 
St. Paul, MN 55165 

Free 1-page party platform. 
Highly Original 

"Had enough of western decline? WE 
STAND FOR CONQUEST. For men 
who are ready to own the world." 
Balance the budget by cancelling 60% 
of the national debt. Ensure justice by 
allowing 4 'Star Chamber" courts and 
holding public executions of existing 
prisoners. Restore military prestige by 
assassinating vocal enemies. Restore 
personal honor by allowing prostitu- 
tion and open vengeance, and disal- 
lowing women drivers. Cure world 
poverty by allowing slavery, and 
silencing the journalists who cover it. 
How serious these guys are is any- 
body's guess. 

LONE ECCENTRICS 

All-One-God-Faith 

Dr. Bronner 
P.O. Box 28 
Escondido CA, 92025 

Scrolls, $2 each 
Top Of the Heap 

You may have seen Dr. Bronner's 
castile soaps in your local health food 
store. "Teach the moral ABC that 
unites mankind free, lightning-like, 
5-billion strong and we're all-One." 
Bronner's densely printed labels are 
PACKED with this stuff. It's good soap 
too, with a cooling peppermint feel. 
But "DILUTE. DILUTE." A 



The cursor was at the very 
end of the hundred-plus- 
character line and I was just 
about to press [RETURN] 
when I noticed that I had left out a 
right parenthesis. So, I moved the cur- 
sor over to the spot where I wanted 
to insert it and ZAP! "#&*@!" I 
shouted, "my slippery fingers did it 
again!" 

Then came that all-too-familiar 
sinking feeling that occurs whenever 



hard programming work disappears 
right before my eyes. You see, instead 
of pressing the [CONTROL] and [IN- 
SERT] keys, as intended, I accidentally 
pressed [CONTROL] and [CLEAR] 
and erased the whole screen. Worse, 
since I had not yet pressed the [RE- 
TURN] key, the line was lost and had 
to be re-typed. 

The Atari's full-screen editor is one 
of its finest and praiseworthy features, 
but I think it was a design oversight 
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No more "Oops, I Hit [Clear]" blues. 



to allow the [CONTROL] [CLEAR] key 
combination to clear the screen when 
[SHIFT] [CLEAR] would have been 
sufficient. It's just too close to [CON- 
TROL] [INSERT]. 

Some of you may be thinking that 
there is no "design oversight" and I 
should just be more careful. Well, in 
my own defense I'll just say that I 
watch what's displayed on the screen 
and I don't like to break my concen- 
tration and look down at the key- 
board. Besides, I don't have dainty lit- 
tle fingers. 

So now, after years of tolerating this 
aggravating situation, I finally realized 
that there was something I could do 
about it. If you feel as I do then But- 
terfingers is for you. 

HOW IT WORKS 

Butterfingers is a small assembly 
language routine that loads into mem- 
ory at Page 6, and uses locations 1536- 
1621 ($0600-#0655). Make sure your 
BASIC program does not use any of 
these locations, or else Butterfingers 
will not work. 

Butterfingers substitutes the oper- 



ating system's normal keyboard inter- 
rupt with a customized one that exa- 
mines all keystrokes before they are 
sent to the Screen Editor. When the 
interrupt detects a key code for [CON- 
TROL] [CLEAR] or [SHIFT] [CLEAR], 
it filters them out and prevents acci- 
dental clearing of the screen. 

I did not want to eliminate the 
clear-screen function entirely, just 
make it more difficult to access. So the 
routine lets you clear the screen by 
simultaneously pressing [CONTROL] 
[SHIFT] [CLEAR]. 

LOADING THE PROGRAM 

Type in Listing 1, FINGERS.BAS, 
check it with TYPO II and be sure to 
SAVE a copy before you RUN it. 

When RUN, the program creates a 
binary file named FINGERS.EXE. This 
file should be copied onto another 
disk containing DOS. SYS, and re- 
named AUTORUN.SYS. Antic Disk 
owners will find FINGERS.EXE on the 
monthly disk. 

FINGERS. M65 is the MAC/65 as- 
sembly language source code, and is 
provided mainly for study purposes. 



You do not need to type Listing 2 to 
use Butterfingers. 

Once you have Butterfingers on 
disk as an AUTORUN.SYS file, turn off 
your Atari. Place your Butterfingers 
disk in drive 1, and turn on your Atari. 
The program will load and run auto- 
matically. Since the program works 
with Atari BASIC, XL and XE owners 
should not hold down the [OPTION] 
key when turning on the computer. 
Once enabled, Butterfingers will re- 
main active until you turn off your 
Atari. NOTE: Butterfingers also works 
with many other languages, including 
TurboBASIC, BASIC XL, Atari 
Microsoft BASIC. It will not work 
with MAC/65, even when the code is 
relocated off Page 6. A 



Kevin Gevatosky is a software engineer 
in Eugene, Oregon. His first Antic arti- 
cle, BASIC Tracer, appeared in the Septem- 
ber 1986 issue As Atari consultant for Co- 
vox, Inc. he helped develop the Voice 
Master speech digitizer used in this issue's 
Super Disk Bonus. 

Listing on page 45 
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BACK ISSUE 

SALE 

Complete Your Atari "Toolkit" 



SAVE 25% TO 35% 



How To Order: 



Simply give the Order Numbers of the 
issues you want, and include the letter 
corresponding to the following selections: 

A- magazine & disk 
B- magazine only 
C~ disk only 

Example: 1A- is for "April 1983, magazine 
&disfc" 

If no letters are indicated in your order, we 
will automatically send you the magazine 
only (B). 



Prices: 

1 To 5 If you order more 
Issues than 5 Issues 

Magazine & Disk $7.00 each $6.50 each 
Magazine only $3.00 each $2.75 each 
Disk only $5.00 each $4.75 each 

Please include shipping & handling charges: 
1 to 5 issues: $1 for each issue 
6 and over : $ 5 plus 50c for each 
issue over 5. 

FOR ORDERS ONLY CALL TOLL- FREE 
(800) 234-7001 (7-5pm PST.) 
MasterCard & Visa Only 

Or send your check to: ANTIC BACK ISSUES 
544 Second Street San Francisco, CA 94107 
California residents add 6 1/2% sales tax. 



Back Issue Order Form 



Order # 



Selection 
A, B, or C 



Order # 



Selection 
A, B, or C 



Total Issues Ordered: 

No. Issues of Sel. A: . 
No. Issues of Sel. B: 
No. Issues of Sel. C: 



1 to 5 



Total Issues 
Ordered: 

6 & over: 



x $7 ea. 
x $3 ea. 
x $5 ea, 



x $6.50 ea. 
x $2.75 ea. 
x $4.75 ea. 



Total! 

Shipping & handling 5 
Amount enclosed i 



□ Check Enclosed □ VISA □ MasterCard 
Name 

Address 

City 



State . 



Zip. 



Credt Card # 
Exp. Date 



Canada, Mexico and all other foreign add $1. 
per issue. Payment in U.S. funds must 
accompany all foreign orders. California 
residents add 6 1/2 % sales tax. 

Anfic 
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Missing any issues? Looking for those great utilities, 
games, and reviews? You'll find it all right here! 
Copies are limited, so order today! 



ORDER * 



ISSUE 



1 April 1983: Games— 3-D Maze, Voyeur (No Disk) 

2 May 1983: Telecomputing— Microids, 

Tele Chess (No Disk) 

3 June 1983: Databases— Stargazing, 

Dancin' Man (No Disk) 

4 July 1983: Adventure Games— Dragonsmoke, 

Shoot-em-up Math 

5 August 1983: Graphics— 3-D Fuji, Keystroke 

Artist 

6 September 1983: Education— P/M Tutor 

7 October 1983: Sports Games— AutoCassette 

8 November 1983: Sound & Music— Air Raid, 

Casting Characters 

9 December 1983: Buyer's Guide— 

AUTORUN.SYS, Automate Player/Missiles 

10 January 1984: Printers— Pocket Calendars, 

Screen Dump 

11 February 1984: Personal Finance— TYPO, 

Gauntlet 

12 March 1984: International Issue— DiskRead, 

Poker Solitaire 

13 April 1984: Games— Risky Rescue, 

Math Wizard 

14 May/ June 1984: Exploring XL Computers— 

Escape from Epsilon, Scroll to the Top 

15 July 1984: Communications— AMODEM, 

BASIC Animation Secrets 

16 August 1984: Disk Drives — Horseplay, Recall 

17 September 1984: Computer Graphics- 

Graphics Converter, Olympic Dash (No Magazine) 

18 October 1984: Computer Learning— Bouncing 

Ball, Antic 4/5 Editor/ Animator 

19 November 1984: Computer Adventures— 

Adventure Island, Advent X-5 

20 December 1984: Buyer's Guide— Infobits, 

Biffdrop 

21 January 1985: Super Utilities— TYPO II, 

DISKIO 

22 February 1985: Finances— Home Loan 

Analyzer, Drum/Bass Synth 

23 March 1985: Printers— Kwik Dump, Font 

Maker 

24 April 1985: Computer Frontiers— Dot Matrix 

Digitizer, Speech Editor 

25 May 1985: New Super Ataris— Son of Infobits, 

Arena Racer 

26 June 1985: Computer Arts— View 3-D, 

The Musician 
2 7 July 1985 : Computer Challenges — Miniature 
Golf, Guess That Song 

28 August 1985: Telecommunications— Atari 

'Toons, Pro* Term 

29 September 1985: Power Programming— 

One-Pass Disk Copy 130, Crickets 



ORDER * 



ISSUE 



30 
31 

32 
33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 
49 

SO 

51 

52 

53 

54 

55 

56 



-Graph 3D, GEM 



October 1985: Mind Tools - 

Color Cascade 
November 1985: New Communications— 

TYPO II Double Feature, 130XE Memory 

Management 

December 1985: Shoppers Guide— DISKIO 
Plus, Box-In 

January 1986: Atari Products are Back- 
Appointment Calendar, Dungeon Master's 
Apprentice 

February 1986: Printer Power— T-Shirt 
Construction Set, Forth Escapes 

March 1986: Practical Applications— Lunar 
Lander Constructor, Lie Detector 

April 1986: Computer Mathematics— Fractal 
Zoom, 3-D Fractals 

May 1986: 4th Anniversary— Digital 
Gardener, Molecular Weight Calculator 

June 1986: Summer Computing— Weather 
Wizard, Bomb Squad 

July 1986: Computer Arts— Amazing Card 

Shuffler, Graf con ST 
August 1986: Online Communications— 

Ultrafont, Floppy Filer 
September 1986: Weather— WEFAX Decoder 

(8-bit/ST), BASIC Tracer 
October 1986: Hard Disks— Video Stretch, 

TYPO ST 

November 1986: Personal Finance— Budget 

dataBASE, V- Graph 
December 1986: Shoppers Guide— Stepper 

Motors, Nuclear Waste Dump 
January 1987: Talking Atari— Talking 

Typewriter, Rebound 
February 1987: Word Processing— SF 

Fogger, Electric Charlie! 
March 1987: Dvorak Keyboard, 

Multi-AUTORUN 
April 1987: —Designer Labels, Taxman 
May 1987: 5th Anniversary— A-Rogue, Poker 

Slot Machine 
June 1987: Animation— Verbot Commander, 

Citadel 

July 1987: Print Anything— Ghost Writer, 

Your Net Worth 
August 1987: Atari Muscle— Sideways 

Spreadsheet, Diamond Dave 

September 1987: Work/Play— Mighty Mailer, 
Maximillian B. 

October 1987: Football Predictor— Antic 
Prompter (8-bit/ST), Spelling Checker 

November 1987: Practical Applications— 
Critical-Path Projects, WYSIWYG Cassettes 

December 1987: Print Holiday— R S. Envelope 
Maker, Antic Publisher 




SPACE-AGE 
ATARI 

By George Lockard 




Atari 800 workstation at NASA's Langley Research Center. 
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NASA 



research 



8-bit 



style 



In the highly technological and 
scientific environment of 
NASA's Langley Research Cen- 
ter at Hampton, Virginia, we 
use an expanded Atari 8-bit computer 
system daily. 

The Atari computer system was sur- 
plus equipment, and although it had 
some age on it when I acquired it, the 
system was still in fine working order 
and has performed well since. I have 
used Atari 8-bit computer systems in 
several professional applications in- 
stead of the "Big" machines, at con- 
siderable savings, and they have per- 
formed extremely well. 

Langley is assembling and testing 
the Halogen Occulation Experiment 
(HALOE) satellite instrument for flight 
on the Upper Atmospheric Research 
Satellite (UARS) to be launched by 
late 1991. HALOE will measure and 
monitor seven gases which are criti- 
cal to understanding atmospheric 
chemistry. 

These gases are measured by opti- 
cal detectors. The detectors have to be 
tested and characterized extremely 
well. One of the tests performed is the 
measurement of the linearity of the 
detector's response to various signals. 
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It is in this test set-up that the Atari 
system is utilized. 

The system hardware consists of an 
Atari 800 with an Axlon 128K mem- 
ory expansion board, an Indus disk 
drive, an Axlon IMP printer with 
printer interface and a Panasonic 
color computer monitor. The system 
software consists of only a few com- 
mercial software products, mainly 
Letter Perfect, Data Perfect and 
B/Graph. Most of the software that is 
used is custom written to meet the 
system requirements. 

The Atari computer is put to use in 
several ways. Some programs were 
written to generate tables and charts 
to be used in determining the equip- 
ment settings for the required test 
conditions, while special programs 
have been developed to enable it to 
perform data reduction and analysis 
of the measured data. This informa- 
tion, along with the measured data, 
is loaded into the main program 



which then compares the test results 
with the test requirements, to deter- 
mine if the detectors met the 
spaceflight specifications. 

Programmed comments are dis- 
played on the screen to inform the 
operator of various conditions of the 



Our 

Atari 800 analyzes 
HALOE data. 



test. All of the computational and 
measured results are also available to 
the operator for review. When the 
operator is satisified, the general 
housekeeping information, along 
with operator comments, is then 
recorded. 



Formatted calibration/test result 
sheets are printed out and the results 
are saved, since we are required to 
keep all of the test data and results un- 
til UARS becomes inoperative. Status 
reports with graphs are generated us- 
# ing the Atari's word processing capa- 
bilities. These reports are distributed 
throughout NASA for review by the 
appropriate responsible individuals. 

Atari 8-bit computers such as the 
130XE and the 800 series may not 
have the speed, memory and graphics 
resolution of the more powerful and 
expensive 16 and 32 bit computers 
around today, but they should not be 
overlooked as the low-cost and highly 
efficient computers that they are. I 
have found that Atari lives up to its 
slogan, "Power without the Price." A 



George Eugene Lockard is an Engineer- 
ing Technician who has a 15-year back- 
ground working with electronics at 
NASA. 
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AUTHORIZED SERVICE 
CENTER FOR ALL 
ATARI PRODUCTS 



micrOtyme 







VISA* 









A DIVISION OF MICRO PERIPHERALS, INC. 

P.O. BOX 369 • KETTERING, OHIO 45409 



DI/COVCR 




... 
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ATARI 

ST't Color or Mono CALL 

Supra ST Hard Disks CALL 

Indus GT Drive CALL 

130 XE CALL 

XF-551 Disk Drive 175 

1020 Color Printer/ Plotter ... .34 

Power Supply 1050/551 19 

Power Supply XE/ XL 29 

Power Supply for Indus GT 23 

XEP-80 . 80 Column! . . .CALL 

PRINTERS 

PANASONIC: 

KX-P1080/, 120cps CALL 

KX-P1091/, 160 cps CALL 

KX-P110 Ribbon, Blk 9.95 

STAR: 

NX- 1000 CALL 

NX- 1000 Color CALL 

OTHERS CALL 

0LYMPIA: THE BEST! 

NP-30 199 

NP-80 389 

NP-136 15" CALL 

Ribbons for Olympia CALL 



MODEMS 

SX-212- 300/ 1200 CALL 

AVATEX 1200 H.C 114 

AVATEX 2400. . NEW. . . CALL 

SUPRA 2400 CALL 

Hayes Compatible 2400 125 

INTERFACES 

P:R: CONNECTION 69 

SUPRA MICR0STUFFER(64K). 59 

SUPRA/ MPP 1150 44 

XETEC Graphix AT 39 

Microprint 39 

MONITORS 

NAP Green W7 Audio 90 

NAP Amber W/Audio 95 

Monitor Cables in Stock CALL 

ACCESSORIES 

Disk File (holds 100!) 5 % 13 
Power Strip, Spike & Surge .16 

Epyx 500XJ Joystick 15 

6' Atari Serial I/O Cable 9 

U.S. DOUBLERw/DOS 49 

U.S. D0UBLER no DOS 29 



PRINTER SUPPLIES 
MAILING LABELS, White. 500 pk . 4 
PAPER, Micro Perfs 500 shts ... 8 



•BIT SOFTWARE 



WE CAN'T LIST EM ALL! 

Action 52 



Action Tool Kit 
Alternate Reality . 
Atari Writer Plus . 
Atari Writer 80 . . 

Auto Duel 

Award Ware 
Ballblazer 



.22 
25 
. .35 
CALL 
34 
...12 
...19 



Basic XE 52 

Basic XL 39 

Basic XL Tool Kit 22 

Bop 'n' Wrestle 21 

Champ LodeRunner 18 

Chessmaster 2000 27 

F-15 Strike Eagle 21 

Flight Night 20 

Flight Simulator II 34 
Scenery Disks ea 15 



Scenery Disk Set (#1-6) 74 

Fraction Action 21 

Gauntlet 23 

Gemstone Warrior 12 

Gettysburg 39 

Gunslinger 17 

Hardball 20 

Heartware 8 

Home Accountant 27 

Infiltrator 19 

Karateka 18 

Kindercomp 18 

Last V-8 7 

Leader Board 11 

Leather Goddesses 22 

Loderunner 23 

MAC/65 52 

Mastertype 27 

Mega Font II 16 

Mercenary 20 

Mercenary Data Disks . ea 20 
Millionaire 21 
Millipede .... 17 

Movie Maker 1 1 

M.U.L.E 11 

Music Const. Set 11 

Music Studio 24 



Never Ending Story 21 

Newsroom 33 

NINJA 7 

Paper Clip w/Spell 38 

Party ware 12 

Phantassie I or II 25 

Pinball Const. Set 11 

Planetarium 23 

PrintShop 28 

PrintShop Companion 24 

Graphics Libraries 16 

PS Interface 18 

R-Time-8Carl 48 

Racing Destruction 11 

Rambo XL 28 

Reforger88 12 

Rubber Stamp 20 

Silent Service 24 

Sixgun Shootout 27 

Sparta D0S-X Cart CALL 

Speed King 7 

Spyvs Spy I & H 21 

Star Fleet I 35 

Star Raiders II 13 

Strip Poker 19 

Strip Poker Data Disks ea 13 

Super Boulderdash 11 



Summer Games 19 

SX Express 24 

Tomahawk 21 

Top Gunner 17 

Touchdown Football 11 

Trail Blazer 21 

Triple Pack 14 

Tycoon 21 

Typesetter 22 

Ultima III. IV CALL 

Video Poker 7 

Video Vegas 21 

Wargame Const. Set 19 

Warship 39 

Wizard's Crown 26 

XLENT Word Processor 20 

Z0RK Trilogy 39 




HOURS: M-F 9 a.m.-9 p.m. EST 
SAT 9 a.m.-5 p.m. 



ALL 50 STATES CALL TOLL FREE 

1-800-255-5835 



For Order Status or 
Tech. Info, Call (513) 294-6236 



TERMS AND CONDITIONS 

• NO EXTRA CHARGES FOR CREDIT CARDS! • We do not bill until we ship • Minimum order $15 • CO D • $3.50 • SHIPPING: Hardware, minimum $4; Software and most accessories, minimum $3 • Next day 
shipment available at extra charge • We ship to Alaska. Hawaii. Puerto Rico (UPS Blue Label Only). AP0 and FP0 • Canadian orders, actual shipping plus 5%. minimum $5 • Ohio residents add 6% sales 
tax • Please allow 3 weeks for personal or company checks to clear • All defective products require a return authorization number to be accepted for repair or replacement • No free trials or credit • Returns sub- 
ject to 15% re-stocking charge • Due to changing market conditions, call toll tree for latest price and availability of product. FOR YOUR PROTECTION. WE CHECK ALL CREDIT CARD ORDERS FOR FRAUD. 



SIMMONS 
THERMAL RIBBONS 

Ink your own • get better copies 



By Thomas Simmons 



SIMMONS THERMAL RIBBONS 




SCOTCH TAPE BLACK LIQUID WAX SHOE POLISH 



It's hard to resist those low 
prices on thermal printers. 
However, there are two draw- 
backs to these apparent bar- 



gains. Ribbons are expensive, one- 
shot items and the printed copy is 
generally of low quality, usually too 
light. 



Now I have come up with a way to 
ink your own ribbons — and get bet- 
ter copies. 

SIMMONS 
THERMAL RIBBONS 

Prices for thermal ribbons can 
range as high as six dollars each. Do 
you want to pay fifty cents per page 
of printout? Of course not. So why 
not do-it-yourself and make Simmons' 
Thermal Tapes? For about thirty-three 
cents you can make yourself 200 
yards of thermal tape. Here is what 
you need: 

Scotch Tape in 200 yard rolls, 1/2 
inch width. 

Black liquid shoe polish. 

Unwind the Scotch tape on a sheet 
of newspaper, spreading the liquid 
shoe polish on the sticky side of the 
tape. Let the tape dry thoroughly. 
When you have coated all the tape, re- 
wind it into a roll. 

Properly coated, the tape will no 
longer be sticky. The liquid shoe pol- 
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ish is a wax that clings to the sticky 
part of the tape. When you wind this 
tape on the spools of your thermal 
printer, be sure that the waxy side 
faces the paper on which you will 
print. Otherwise, the printhead will 
clog with wax and nothing will print. 
(Antic holds no responsibility for 
any damages resulting from use of 
the techniques described in this arti- 
cle. -ANTIC ED) 

When you print, the thermal pins 
of the dot-matrix momentarily heat 
the smooth side of the tape. This heat 
melts the black wax of the shoe pol- 
ish, which immediately transfers to 
the typing paper. The result is perma- 
nent and waterproof, producing a 
high quality, non-smear printout! Try 
it, and you'll quickly be convinced 
that my Simmons Thermal Tape idea 
is pure genius, or pure Shinola, de- 
pending on the type of shoe polish 
you use. 

This process will also work on your 
old Atari 825 dot-matrix printer. Just 
put the liquid shoe polish on your 
printer ribbon and start printing. The 
waxy polish actually preserves the 
ribbon and there is no drying out. 
Cost: about three cents per ribbon re- 
inking! A caution, however: there will 



be a wax buildup on your printhead 
that needs periodic cleaning. 

If you have a craving for color, you 
might try taking a wax crayon to 
your adhesive tape. Mark the sticky 
side of the tape with any color of 
crayon. Be careful to cover the tape 
thoroughly with the crayon. Then 
wind the tape onto your printer 



spools. As before, make sure you print 
with the stick'/ side toward the paper 
you're printing on. 

SIMMONS 

THERMAL CARBONS 

You can also make your own ther- 
mal carbons. Go out and buy the 
cheapest carbon paper you can find. 
It is generally low quality stuff, made 
of thin, almost plastic, paper. This 



works to your advantage when it 
comes to heat-transfer printing. 

Take that bottle of black liquid shoe 
polish and evenly paint the carbon 
side of the paper. Let it dry. 

Put the dry carbon paper on top of 
a clean sheet of typing paper, painted 
side down. Take the old thermal tape 
out of the printer and insert the paper 



with the back of the carbon paper 
facing the printhead. The thermal 
dot-matrix pins strike the carbon 
paper and transfer a brilliant black 
wax image to your typing paper. 

Depending on the price of your 
typing paper, the cost should be about 
two cents per page. This goes down 
to a fraction of a cent per page of 
print, if you re-coat the same carbons. 
How's that for home-grown savings? 

NOTE: Don't use this technique 
with the Atari 1027 printer. You really 
must have the proper ink rollers to get 
the high quality results this printer is 
capable of. 

Not only does black liquid shoe 
polish work well on home-made rib- 
bons for thermal printers and the Atari 
825, it is also excellent for touching 
up grey streaks in your hair. If you're 
bald like me, all you can do is put it 
on your shoes and use it with your 
printers. A 



Thomas Simmons' areas of expertise 
include CAT scan technology, nuclear 
magnetic monitoring medical sensor 
construction, and creating handy do-it- 
yourself projects for the Atari. His quirky, 
but practical, tips have previously ap- 
peared in the May and June 1987 issues 
of Antic 



The result is 
a permanent, waterproof, 
high quality, non-smear 
printout! 
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PRODUCT REVIEW 




I D 



I M A X 



Affordable 8-bit MIDI choice. 



Reviewed by Jeffrey Summers, M.D. 



The ATARI ST was the first 
personal computer to have 
MIDI ports built in, so the 
computer could communi- 
cate directly with electronic instru- 
ments. Atari 8-bit computers can also 
support MIDI, but require an interface 
to do so. One such device is MIDI- 
MAX, from Wizztronics. 

The MIDIMAX interface is supplied 
in a package with the MIDI Music Sys- 
tem sequencing program, and another 
program that will convert files from 
the popular AMS public domain for- 
mat into MIDI Music System format. 
Several songs demonstrating the 
power of MIDI Music System are also 
included, such as "Flight of the Bum- 
ble Bee," "Maple Leaf Rag," and the 
"Beverly Hills Cop" Theme. 

The interface itself is a small, com- 
pact unit, about the size of an Atari 
XM301 modem. It is powered 
through the serial bus of the com- 
puter. It has a connector, so it does not 
need to be at the end of the daisy 
chain. 

Since it's powered by the serial bus 
MIDIMAX has the advantage of not 
requiring a transformer (I'm running 
out of outlets on my power strip). Un- 
fortunately, this has the disadvantage 
of causing a voltage drop that might 
affect the performance of other simi- 
lar devices. I have used MIDIMAX in 
conjunction with ICD's P:R: Connec- 
tion without incident, however. 

The metal case appears to be quite 




8-bits require 
an interface like 
MIDIMAX. 



sturdy. There are MIDI in and MIDI 
out connectors, but no MIDI thru. 
Two MIDI cables are supplied for con- 
necting to your instrument. The in- 
terface works without problem. 

MIDI MUSIC SYSTEM 

MIDI Music System is the sequenc- 
ing program supplied with MIDIMAX. 
A sequencer sends a series of notes or 



instructions to an instrument. MIDI 
Music System is a full-featured se- 
quencer with 99 tracks, 20 of which 
may be sent over any of the 16 MIDI 
channels. MIDI Music System also 
sends MIDI clock information, allow- 
ing you to control drum machines. 

Each note in each track is entered 
as "note-octave-duration." For exam- 
ple, C4Q will play middle C for the 
duration of one quarter note. 

Notes may be entered from a MIDI 
keyboard as well. However, MIDI 
Music System does not time how long 
a note was played. A buffer holds the 
notes as you play them, and you must 
then add the note durations from the 
computer keyboard. 

Simple commands let you make 
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changes in patches, key, tempo, pitch 
wheel and velocity. Controller 
changes (mod wheel, volume 
changes, etc.) use a generic statement 
to set parameters. For example, P7,102 
sets controller number 7 to 102. (P7 
is the volume controller for most syn- 
thesizers). 

AMS TO MMS 

The conversion program between 
AMS (Advanced Music System) and 
MIDI Music System is quite useful, be- 
cause AMS files are commonly found 
in user group libraries and on bulle- 
tin boards. After conversion to MIDI 
Music System, you can play these 
songs on your synthesizer— much 
more pleasing than the bleeps that the 
computer produces. 

The program does not always seem 
to correctly translate the files, how- 
ever. It has particular difficulty with 
songs that use odd timings for notes, 
such as triplets. There are other pub- 



lic domain conversion programs that 
do a better job. The program supplied 
is better than nothing, but I suggest 
finding one of the other programs on 
your local bulletin board, or on GEnie 
or CompuServe. 

The manual covers the MIDI Mu- 
sic System program in depth and is 
quite complete. However, there is no 
technical information regarding the 
interface itself. This makes it difficult 
(though not impossible) to write your 
own programs using the interface. At 
least one MIDI handler is available as 
shareware. 

The only problems I have run into 
in about 6 months of use are proba- 
bly not related to the interface or soft- 
ware. With my Casio CZ synthesizer, 
certain notes seem to be "lost" — not 
played. The problem occurs most of- 
ten when a lot of MIDI information 
is being sent. 

I wrote to Wizztronics about the 
problem. They confirmed that there 



is a problem, but only with Casio CZ 
synthesizers. (Other MIDI interfaces 
apparently have the same problem 
with the CZ.) So, I purchased a Roland 
MT-32 tone generator (a tone genera- 
tor is essentially a synthesizer with- 
out keys) and since then have had no 
problems when using MIDIMAX. 

Essentially, an 8-bit user who 
wishes to experiment with MIDI has 
two choices: buy an ST or buy a MIDI 
interface. The ST is a powerful ma- 
chine, with good MIDI software 
availability — but it costs a heck of a 
lot more. There may not be as much 
software available for the 8-bit user, 
but the money you save on computers 
can buy you an extra piece of sound 
equipment. MIDIMAX is a good pack- 
age and an excellent introduction to 
MIDI for 8-bit users. A 

$229. Wizztronics, P.O. Box 122, Port 
Jefferson Station, NY 11776. (516) 
473-2507. 



GET YOURS FAST 




Super Bonus Program! 

Found only on the disk, it's too large a type-in 
program to fit in the magazine. 

Plus all 172K of this month's Antic programs on 
disk. Great 8-bit software without typing! 

Phone Toll Free 

(800) 234-7001 

Phone orders by Visa or MasterCard only 
Ask for ADS589 - May 
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TERRIFIC SOFTWARE PRESENTS 

TWO NEW, SENSUOUS GAME TITLES 



Look out, Indiana Jones! 
Step aside, Bogie! 
Crash Garrett's in town! 



Don't wait 'till Sunday to catch-up on 
your favorite action comic — play 
CRASH GARRETT instead! 

No other adventure game is quite like 
this... 




pnnnnrn 



Let ace flyer CRASH GARRETT escort 
you through Hollywood in the '30s to 
rescue sultry, sexy gossip columnist, 
Cynthia Sleeze, from the sinister Nazi 





mastermind Baron 
von Engel Krul 
and his cronies. 
Help CRASH stop 
this perverse Nazi 
spy-ring from kid- 
napping glamor- 
ous, American 
beauties to use as 
breeding stock for an Aryan race of 




superhumans. Be the voice in 
CRASH'S head as he encounters ad- 
venture after adventure with a whole 
group of wacky, depraved characters 
including Caleb Thorn, psychoanalyst 
to the stars, and Lotta 
Linebacker, a female 
wrestler who knows what 
she wants from a man! 

CRASH GARRETT is 
style and pizzazz — an 
animated comic book 
with a slick, continential 
look. It's about as much 
terror, intrigue and suspense you'll 
want from any game! 



Play Stir Crazy With Bobo- 

Your idea of "doing time" will definitely change! 



Had a little too much violence lately? 
Still want fun and action? Well, grab 
your joystick and join poor Bobo in six 
of the most graphically amusing 
adventure games ever on disk. 




Bobo's in prison — INZEESLAM- 
MER — where he spends most of his 
time performing menial chores and 
planning his escape. Bobo's no penal 
pushover! 

Bobo starts his day feeding porridge 
to hungry, irritable prisoners. Don't 

CRASH GARRETT and STIR CRAZY with Bobo are licensed 
Terrific Software is a trademark of Antic Software. *Atari ST 




let him get too befuddled, or else he'll 
end up with the porridge bucket on 
his head. 

K.P.'s next. Speed 
is the key here. 
Don't let Bobo get 
buried underneath 
a pile of spuds! 

An exhausted Bobo 
tries to catch up on 
his beauty sleep, but 
is constantly interrupted by the relent- 
less snoring of his cell mates. 



Finally Bobo makes his escape and 
hurtles off into the sunset, right onto 
electric train cables. Bobo needs some 
pretty fancy footwork to avoid the 
pulsating current! 




cap* 




Available for Atari ST* and 
Amiga® Computers at your 
favorite store. To order by 
phone, call 800-234-7001. 

CRASH GARRETT— $ 39 95 
STIR CRAZY with Bobo— $ 34 95 



I 



Terrific Software, 544 Second St., San Francisco, 
CA 94107 (415) 957-0886 

MA9S 



trademarks of Infogrames. Terrific Software is the exclusive distributor of Infogrames products in North America 
is a registered trademark of Atari Corp.; * Amiga® is a registered trademark of Commodore-Amiga, Inc. 



When You Want To Talk Atari... 
You Want To Talk To Us. 





Atari 

65XE 
800XL 



$109 
79 



INTERFACES 



ICD 

P:R Connection 58 
Printer Connection 34 
850 To Par Cable 15 
Supra 

1150 36 
Xetec 

Graphix Interface 38 
Atari 

850 Interface 109 



XL/XE ENHANCEMENTS 



Axlon 

32K Memory 400/800 16 
Atari 

80 Column Card 69 
I/O Cable 7 
ICD 

Sparta DOS Construction 

Set 26 
US Doubler/Sparta DOS 45 
Real Time Clock 46 
Rambo XL 26 



MODEMS 



Atari 

SX212 300/1200 ST Dir. 

Con. 69 
XM301 44 
Avatex 

1200HC 89 
2400 159 
Supra 

2400 Baud XL/XE 

or ST 159 
2400 Baud (No Software) 139 



DRIVES 



Atari 

XF551 XL/XE $179 
LB. 

5W 40 Track (ST) 219 
LCD. 

FA-ST 20 Meg 629 
FA-ST 30 Meg 759 
FA-ST Dual Hard 

Drives Call 
Indus 

GTS 100 3!/2" DS/DD 
(ST) 189 

GT 1000 DS/DD 
(ST) 199 

GT Drive (XL/XE) 189 

Supra 

30 Meg Hard Drive (ST) 649 
60 Meg Hard Drive (ST) 989 



PRINTERS 



1 



Alps 

ASP 1000 120cps, 9-Pin 179 
Atari 

1027 Letter Quality 

XL/XE 69 
XDM121 Letter Quality 

XL/XE 189 
Brother 

M-1109 lOOcps Dot Matrix 
159 




ATARI 
1020 Printer, 40 Col. 
Color 112. 



Epson 

LX-800 150cps, 80 Col. 
NEC 

P2200 Pinwriter 24- 

Wire 
Okidata 

ML-390 + 270cps 24- 
Wire 



189 



349 



509 



Panasonic 

KX-P109H 194cps, 

80 Col. $179 
Star Micronics 

NX- 1000 140cps, 

80 Col. 
NX- 1000 Rainbow 

Color 



SOFTWARE XL/XE 



Access 

Leaderboard Golf 
Atari 

Atariwriter Plus 
Broderbund 
The Print Shop 
Microprose 

Top Gunner 
F-15 Strike Eagle 



SOFTWARE (ST) 



Accolade 

Test Drive 

Activision 

Hacker 2 Doomsday 

Antic 

Flash 

Avant Garde 

PC Ditto 
Cygnus 
Starfleet 
DataEast 

Speed Buggy 



169 
239 

13 
36 



WordPcrtcct 




WORDPERFECT 
$ 159 





Electronic Arts 




27 


Auto Duel 
Epyx 


$32 


16 


Divebomber 


19 


23 


Firebird 






Tracker 


14 




FTL 






Dungeonmaster 


27 


24 


Michtron 




Leatherneck 


28 


29 


Microprose 




F-15 Strike Eagle 


24 


19 


Psygnosis 




Obliterator 

Soft Logik Corp. 


27 


59 


Page Stream 
Timeworks 


139 


34 


Desktop Publisher 


79 




WordWriter 


45 


27 


Unison World 




Printmaster Plus 


23 



Your Source for Hardware, Software <Sr Peripherals 



In U.S.A. 



800-233-8950 

In Canada call: 800-233-8949 
All Other Areas call: 717-327-9575 Fax call: 717-327-1217 
Educational, Governmental and Corporate Organizations 

Call toll-free: 1-800-221-4283 
CMO, 101 Reighard Ave., Dept. B6, Williamsport, PA 17701 



Over 400,000 SATISFIED CUSTOMERS • MAJOR CREDIT CARDS ACCEPTED 



POLICY: Add 3% (minimum $7.00) shipping and handl- 
ing. Larger shipments may require additional charges. Per- 
sonal and company checks require 3 weeks to clear. For 
faster delivery, use your credit card or send cashier's check 
or bank money order. Credit cards are 

not charged until we ship. Pennsylvania and Maryland residents add appropriate 
sales tax. All prices are U.S.A. prices and arc subject to change. All items are sub- 
ject to availability. Defective software will be replaced with the same item only. 
Hardware will be replaced or repaired at our discretion within the terms and limits 
of the manufacturer's warranty. We cannot guarantee compatibility. All sales are 
final and returned shipments are subject to a restocking fee We are not responsi- 
ble for typographic or photographic errors. 

B605 



PRODUCT REVIEWS 



Two Books for Atari Users 

Quest For Clues, Official Print Shop Handbook. Reviewed by Chester Cox 



QUEST FOR CLUES 

There are a lot of addicted but frus- 
trated adventure gamers out there. 
Maybe you're one of them — I know 
I am! I know of no less than five trade 
paperback books full of hints for var- 
ious adventures — plus dozens of hint- 
books for individual adventures. 

Newest of the lot is Quest for 
Clues. The editor is something of a 
legend himself— Shay Addams, who 
puts out the adventure games news- 
letter QuestBusters and has suppos- 
edly played more adventures than 
anyone else alive. The book covers 
fifty games, but only 21-35 are of 
interest to Atari owners— 21 if you 
own an XL/XE, 30 if you own an ST, 
35 if you own both. Games as recent 
as 1986-7 are covered, including the 
chilling Lurking Horror, the ground- 
breaking Pawn, and the heartbreak- 
ing Ultima IV. 

But Quest for Clues is often just as 
confusing as the original adventures. 
Instead of giving straightforward 
hints, Addams chooses to encrypt his 
clues. By looking at the Code Key— 
or memorizing the simple cypher — 
and transposing letters, you can tedi- 
ously spell out clues or solutions. To 
further muddle things, the adventures 
are not arranged in alphabetical order. 
Instead, they are arranged within 
chapters titled Disk Drive Detectives, 
Fantasy Lands and so on. If Addams is 
trying to keep players from the very 
real temptation of looking up all the 
clues at once, he has committed 
overkill. 

Quest for Clues, like the newslet- 
ter it springs from, assumes you want 
an entire walk-through of an adven- 
ture. Usually, only one or two puzzles 



stop you in a story. Individual hints 
leave some portion of your pride in- 
tact. A walk-through leaves me feel- 
ing that the author thinks I'm too stu- 
pid to finish an adventure on my own. 
If you prefer the satisfaction of solv- 
ing a puzzle yourself, but need just a 
little help, Quest might be more than 
you want. 

On the other hand, the maps are 
some of the very best I've seen for any 
adventure. I found no errors in any of 
them. If you're like me, and dislike 
clues but love maps, you'll love Quest 
for Clues.— CHESTER COX 

$19.95. Origin Systems. Distibuted by 
Broderbund Software, 17 Paul Drive, San 
Rafael, CA 94903. (415) 492-3500. 

OFFICIAL PRINT SHOP 
HANDBOOK 

Broderbund 's popular Print Shop 
software is so simple to use that many 
people have never even bothered to 
read the original manual. So Bantam's 
Official Print Shop Handbook by 
Randi Benton and Mary Schenck 
Balcer almost looks like a cheap at- 
tempt to sucker P.S. fans out of $17. 

But the large-format paperback 
book is loaded with shortcuts, ideas 
and gimmicks we hadn't figured out 
on our own. It's handy having all 
these references in one book, and 
there are also many templates and ex- 
amples that should prove irresistable. 

The writers assume that Print Shop 
is only available for Apple II, Commo- 
dore, and IBM. But the fonts, graphics 
and disks listed match with the Atari 
disks, so the book is compatible. 

The authors recommend creating 



a template box marked so you can de- 
termine where an icon would be sized 
within it. By printing these boxes in 
various formats (staggered, tiled, etc.) 
and sizes, you'll have a series of blank 
forms to help you determine how 
your finished Print Shop sign, letter- 
head, card, or banner will look. This 
addresses one of Print Shop's greatest 
faults: Print Shop does not preview 
the final form to your screen. 

Dozens of shortcuts are thrown out 
in a shotgun approach. Easy hints on 
double printing (winding the paper 
back to a specific spot to print on top 
of another printed form) are given, 
with some classy results shown. Some 
of the ideas will be unnecessary for 
longtime users. Antic has shown how 
to print labels with Print Shop icons 
(April 1987), create envelopes to fit 
P.S. cards (December 1987) — and how 
to use P.S. fonts in a better banner pro- 
gram Quly 1988). Also there are many 
public domain and commercial prod- 
ucts that use Print Shop icons and 
fonts in unexpected ways. 

Still, there's enough useful informa- 
tion here for the daily Print Shop user 
to earn this book a place on the desk 
just above the monitor. Best of all, 
many of the tips and graphic design 
principles in the handbook are use- 
ful with other printware. By keeping 
instructions and hints at the most ba- 
sic level, the Official Print Shop Hand- 
book becomes applicable to, well, 
everyday life. And that's where my 
Atari has always belonged.— CHESTER 
COX 

$16.95. Bantam Computer Books, 666 
Fifth Avenue, New York, NY 10103. (212) 
765-6500. 
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TYPING SPECIAL ATARI CHARACTERS 



The Atari Special Characters and 
the keys you must type in order to 
get them are shown below: 

For [CONTROL] key combina- 
tion, hold down [CONTROL] while 
pressing the next key. For inverse 
[CONTROL] [A] through 
[CONTROL] [Z], press the [3] 
key— or [A ] on the 400/800— then 
release it before pressing the next 
key. (Press [H] or [ A] again to turn 
off inverse.) For [ESC] key combina- 
tions, press [ESC] and then release 
it before pressing the next key. 

Carefully study the chart above 
and pay close attention to differ- 
ences between lookalike characters 
such as the slash key's [/] and the 
[CONTROL] [F] symbol [0]. 



NORMAL VIDEO 



FOR 
THIS 


TYPE 
THIS 


FOR TYPE 
THIS THIS 


H CTRL 


» 


B CTRL S 


OB CTRL 


A 


M CTRL T 


□ CTRL 


B 


H CTRL U 


ffl CTRL 


C 


D CTRL V 


9) CTRL 


D 


ffl CTRL W 


ffl CTRL 


E 


ffl CTRL X 


0 CTRL 


F 


B CTRL Y 


S CTRL 


G 


ffl CTRL Z 


H CTRL 


H 


S3 ESC ESC 


□ CTRL 


I 


ffl ESC CTRL - 


B CTRL 


J 


BB ESC CTRL = 


O CTRL 


K 


ffl ESC CTRL + 


B CTRL 


L 


ffl ESC CTRL * 


n CTRL 


M 


ffl CTRL . 


□ CTRL 


N 


ffl CTRL ; 


B CTRL 


0 


H SHIFT = 


ffi CTRL 


P 


■ ESC SHIFT 


ffl CTRL 


Q 


CLEAR 


H CTRL 


R 


HQ ESC DELETE 
DB ESC TAB 



INVERSE VIDEO 



FOR 
THIS 



□ 

□ 

o 
□ 
a 



TYPE 
THIS 

ESC 
SHIFT 

DELETE 
ESC 
SHIFT 

INSERT 
ESC 
CTRL 
TAB 
ESC 
SHIFT 

TAB 
A CTRL . 
A CTRL ; 
A SHI FT = 
ESC CTRL 2 
ESC 
CTRL 

DELETE 
ESC 
CTRL 
INSERT 



TYPO II AUTOMATIC PROOFREADER 

TYPO II automatically proofreads Antic's type-in BASIC listings. Type in the listing below and SAVE a copy to disk 
or cassette. Now type GOTO 32000. At the prompt, type in a single program line without the two-letter TYPO II 
code at the beginning. Then press [RETURN]. 

Your line will reappear at the bottom of the screen. If the TYPO II code does not match the code in the magazine, 
then you've mistyped your line. 

To call back a previously typed line, type [*], then the line number, then [RETURN]. When the completed line ap- 
pears, press [RETURN] again. This is how TYPO II proofreads itself. 

To LIST your program, press [BREAK] and type LIST. To return to TYPO II, type GOTO 32000. To remove TYPO 
II from your program, type LIST "D:FILENAME",0,31999, then [RETURN], then NEW, then ENTER "D: FILENAME ", 
then [RETURN]. Now you can SAVE or LIST your program to disk or cassette. 



Don't type the 
TYPO II Codes! 



WB 
UM 

H5 

BN 

VC 

EM 
HS 

XH 



TH 
fIF 



32000 REM TYPO II BY ANDY BARTON 

32010 REM UER. 1.0 FOR ANTIC MAGAZINE 

32020 CLR :DIM LINES C120J : CLOSE »2:CL0 
5E »3 

32030 OPEN »2,4, 0, "E" : OPEN »3,5,0,"E" 

32040 ? "«" : POSITION 11,1:? "gJU^MHHHH" 

32050 TRAP 32040 : POSITION 2,3:? -Type 
in a progran line" 

32060 POSITION 1,4:? " '• : INPUT «2;LINE 
$:IF LINE$="" THEN POSITION 2,4:LI5T B 
:G0T0 32060 

32070 IF LINES el , 13 =••*•• THEN B = UAL CLIN 
E$C2,LENCLINE$>>> POSITION 2,4:LI5T B: 
GOTO 32060 

32080 POSITION 2,10:? "CONT" 

32090 B = UAL CLINE^J : POSITION 1,3:? •■ ; 



NY 
CN 
ET 

CE 
QR 



UU 

UJ 
JW 
EH 
BH 
HB 
IE 

UG 



2100 

2110 

2120 

: POSI 

2130 

2140 

INES = 

TO 32 

2150 

N5+ cc 

2160 

2170 

2180 

2190 

2200 

2210 

LCODE 

2220 

Mate 
oue • 



POKE 
POKE 

? 

TION 

C = 0: A 

POSIT 
.... TH 

050 
FOR D 
*A5C c 
C0DE = 
C0DE = 
HCODE 
LCODE 
HCODE 
P05IT 

3 

POSIT 
h pre 
: GOTO 



842, 13 : STOP 
842, 12 

: POSITION 11,1:? "■UQHLiHIlilB 

2,15:LIST B 
NS = C 

ION 2,16:INPUT »3;LINE$:IF 
EN ? "LINE ";B;" DELETED" : G 

=1 TO LEN CLINES3 : C=C+1 : AN5= 

LINE$cD,D>>> : NEXT D 

INT CAN5'676> 

ANS- CC0DE«676> 

= INT CC0DE'26> 

= C0DE- CHC0DE»26> +65 

=HC0DE+65 

ION 0,16:? CHRS cHCODEJ ; CHR5 



ION 2,13:? 
ss ■ftLHUniLGR]! 

32050 



'If CODE does no 
and edit line a 



MAY 1989 
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PLAY WITHOUT WORRYING ABOUT LOST PEGS 

CRIBBAGE ATARI Article on page 14 



LISTING 1 



Don't type the 
TYPO II Codes! 



AH 2 REM CRIBBAGE ATARI! 
NQ 4 REM BY DAUID C OSBORN 
PF 6 REM c c >1989, ANTIC PUBLISHING INC 
PO 18 GRAPHICS 2 : DBUG = 0 : P = 0 '• C = P : POKE 718, 

P:GOSUB 2568:REM TITLE 
UK 28 ? s? s? " Enter Tining Delay 8-9 
c 8 = Fast, 9 = Slow ) 

!• • 

QF 30 TRAP 28 
KB 48 INPUT D 

JU 58 GOSUB 2430:0=0^2 •. 
TT 68 RESTORE 2978 : LP=XX : GRAPHICS 18:G05U 
B 585:P0KE 756,AA:F0R BB=788 TO 712:RE 
AD EE POKE BB, EE 'NEXT BB 
OZ 65 RESTORE 2628 

TB 78 POSITION 4,4:? **6;"C)L*! !_P~," 
:L3$="1& 3* 5c 7 C" : L4$="2F 4c 6c 8C":P 
OSITION 16,7:? »6,"$$" 
TB 88 POSITION 4,1:? «6 ;"! _P : . «" : POSITION 
2,2:? »6;"1& 2F 3' 4C 5c 6 C" : POSITION 
2,3:? **6;"$$ $$ $$ $$•' 

HL 98 NC=CR:GOSUB 848:F0R AA=8 TO 12 
AX 188 CCAA*=INTCRNDC8>*52>+1:UCAAJ=CCAAJ 
:SCAA1=0 n „ 

KU 118 IF A A THEN FOR BB=8 TO AA-lsIF CcB 

B>=CcAA> OR CCAA>>52 THEN 188 
YT 128 IF AA THEN NEXT BB 

PN 138 IF UCAA)>13 THEN U c A A) =U c A A> - 13 : S c 

AAl =S <AA> +1 : GOTO 138 
CN 148 KCAA>=UCAA*+16 : IF Ucftft><9 AND U cAA 

1-1 THEN 288 
RG 158 IF UCAA>=1 THEN KcAA>=97 
L Q 168 IF UCAA)=18 THEN KcAA>=31 
AO 178 IF UCAA*=11 THEN KcAA>=98 
SO 188 IF UCAA>=12 THEN KcAA>=27 
NS 198 IF UCAA1=13 THEN KcAA>=100 
QN 288 FCAA>=SCAA>+123:IF 5 cAA* =2 THEN Fc 

AA>=96 

RC 218 IF 5CAAX2 THEN K c A A> =K c A A> +96 i F c A 
AJ =F CAA> +96 : IF Kcflfl) < 192 THEN KcAA>=Kc 
AA>+64 

FC 228 NEXT AA ' FOR AA = 0 TO 12 « M c A A> = A A : NE 

XT AA:LL=8:HH=5:G0SUB 1148 
JL 238 FOR AA = 8 TO 12 i N c A A* =U c A Ai : IF NCAA 

>>10 THEN NcAA>=10 
NU 240 REM COMPUTER'S CRIB PICK 
QQ 250 NEXT A A : LL=0 : HH=5 « GOSUB 2390:GOSUB 
1140:GOSUB 870:POSITION 18,5:? tt6;"$" 
: SOUND 0, 5, 6, 10 : AA=AA^1 
UY 260 SOUND 0,0,0,0 
NK 270 REM COUNT POINTS 
OB 280 REM PLAYER'S CRIB PICK 
UN 290 NN=16:F0R CC=0 TO l:GOSUB 788 : P05I 

TION XX + 1,YY:? »6 ; POSITION 14 + CC, 

5 : ? «6; i TM=XX*CC : MO = X X + MO - TM 
UF 388 FOR DD=1 TO 6l:S0UND 8 , DD , 18 , 8 : NEX 

T DD:SOUND 8,8,8,0 
RZ 310 GOSUB 2060:NEXT CC : IF WO = TU THEN H 
H=5:P0SITI0N 14,5:? «6 ; " ":MO=0:TW=0: 
LL=0:GOSUB 1140:GOTO 290 
UA 320 MO = INT c CUO + U ^33 : TM= CTM-1J ^3 : CR C1J 
=MCU0> :CRC2J=MCTM3:LL=0:HH=3:GO5UB 239 
0:BB=-l:FOR AA = 0 TO 5 
QO 330 IF MCAA> -CRC13 AND M c A A> - CR c2> THE 

N BB=BB+1:MCBB)=MCAA1 
UT 340 NEXT AA * LL=0 : HH=3 : GOSUB 2390 : POSIT 
ION 13,2:? **6;" ":G05UB 1140:COLO 

R KC12J:PL0T 16,7:C0L0R F C12> 
OH 350 PLOT 17,7:IF Ucl2»=ll THEN UH=CR:P 
T=2:G0SUB 2090 : POSITION 3,10:? «6;"FK 
EP 2":G0SUB 2060 
KS 360 HH=l:RC=CR:FOR AA=4 TO 7:McAA>=McA 
A + 2^:NEXT A A : FOR AA = 8 TO 11 : M CA A* =CR c A 
A-7> : NE XT AA 
UU 370 REM THE PLAY 

AN 380 P$=" ":FOR AA=6 TO 7 : PO 

SITION 1,AA:? *6;P$:NEXT A A : T T = 0 : PL = 0 : 
J J = 1 : GOSUB 840 
HU 390 MM=1 : BB=0 : POSITION 9,10:NC= NOT RC 
FOR AA=0 TO 7 
38 



xc 



KJ 
UP 



MR 
RA 



UX 
SB 

XC 
XO 



UD 

UF 

ZU 

ZT 
FQ 
QG 

DM 
QI 



UU 

CF 
GJ 



EJ 



IY 
EJ 



HG 
SM 



BD 
UJ 

LM 
FI 
BU 
BA 
TT 
PD 

CH 



LT 

QZ 
OR 
YQ 

EF 
CH 



FI 
UB 
10 
XN 

UU 
UG 



510 
520 



400 IF NCMCAA>>>10 THEN NEXT A A : UH=RC : 
BB=l:PT=l:? »6 ; " I" : MM=8 : GOSUB 2890:GO 
TO 520 

410 FOR AA=NC*4 TO NC*4 + 3 

420 IF TT+NCMCAAJJ >31 THEN NEXT AA:POS 
ITION 9,10:MH=RC:NC=RC:? «6 ; " I":GOSUB 

2060 : POSITION 9,10 
430 FOR AA=NC*4 TO NC*4 + 3:IF TT + N CM CA A 
)J>31 THEN NEXT A A : FF=1 : ? »6 ; " I" : PT=1 
:G05UB 2090:GOSUB 2060:GOTO 380 
440 HH=l:P05ITI0N 1,10:? »6 ; P S : P 0 5 I T I 0 
N 9,10:? t*6 ; TT : IF RC = NC THEN RC= NOT R 
C:CO=CO+3:PL=PL+l:HH=0:GOTO 460 
450 PL = PL + 1 : C0 = 3*INT c CPL+1* '2>-2:R0=7 
460 IF RC THEN R0=6 : J J=0 » GOSUB 1390:? 

«6; GOSUB 2060 

470 IF NC THEN GOSUB 1160 

480 GOSUB 1430-GOSUB 1460 « RC=NC : CT=0 : N 
CMCAA3 1=NCMCAA9) +50 : JJ=TM: GOSUB 20 6 6 : P 
OSITION 1,9:TM=JJ 
490 IF T T < 3 1 THEN 390 

500 POSITION l,CLl:? «6; L3$ : POSITION 1 
,RMl:? «6;L4$:G0T0 380 

505 IF DBUG=0 THEN POKE 16,112:P0KE 53 
774,112 

506 RETURN 
EM PLAY IS OUER 
OSUB 2070:P$=" 

:ZZ = 0 

530 REM CLEAR SCREEN 

540 FOR AA = 0 TO 7 : N (M<fifl) ) =N (M cftfl) ) -50 
: NEXT A A : FOR AA=1 TO 10 : POSITION 1,AA> 
? «6;P*:NEXT A A : NC= AB5 CCR - 1> 
550 REM IF ZZ THEN ALL THREE COUNTED 
AND WE'RE READY FOR THE NEXT HAND 
560 IF ZZ THEN ZZ = 0 : POP :POP : GOTO 70 
570 FOR AA=0 TO 12 : C c A A) =M c A A) : NEXT AA 
:FOR AA = 5 TO 8 « M C A A> =C c A A - 1> : NEXT AA : L 
L=10 : HH=13 

580 FOR AA=10 TO 13 « M c A A> =C c A A - 2* i NEXT 
AA : FOR AA=0 TO 2 « BB= A A*S + 4 i M cBBi =C C12 
l : NEXT AA : GOSUB 2390 
590 REM SET UP SCREEN 

600 RE = 0*L1$ = - ' !-P L2$ = " K ! :.»••: 

IF NC THEN P$=L1$ : L1$=L2$ : L2$=P$ : RE=5 : 
p$ = » 

610 POSITION 3,1:? «6; LIS : POSITION 3,3 

:? »6; L2$ i POSITION 5,5:? tt6;"C» 

620 POSITION 14,4:? »6 ; "& . ' P" : C0=15 : RO 

=5 : AA=14 : TT=100 : GOSUB 1430 « POSITION 1, 

10 : ? «6; PS 

630 REM COUNT HAND 

640 R0=2:UH=NC:LL=RE:G0SUB 1670:UH=CR: 

RE=ABS CRE-51 : POSITION 1,10 

650 REM COUNT SECOND HAND 

660 R0=4:LL=RE:UH=CR:G05UB 1670 

670 REM COUNT CRIB HAND 

680 R0=6 : LL=10 : GOSUB 1670 

690 CR=NC:ZZ=l:GOTO 540 

700 CE = 0 : XX = 1 : YY = 3 : BB = 0 : COLOR 130:PLOT 
1,3: DD=0 

710 POKE 694,0:POKE 702,64:IF LP=75 TH 
EN CLOSE ttl:OPEN «1 , 4 , 0 , "K : " : GET «1,DD 
: CLOSE »1 : GOTO 760 

720 5T=5TICKC0> : IF ST>8 AND 5TICK< 12 T 
HEN DD=43 

730 IF ST<8 THEN DD=42 

740 POKE 77,0:IF 5TRIGc0J=0 THEN DD=62 
750 IF ST=15 AND DD-62 THEN 720 
760 IF DD>42 THEN BB=0 

770 FOR ZZ=1 TO NN STEP 3:C0L0R 128:PL 
OT 1,3:IF ZZ-CE THEN COLOR 128:PL0T ZZ 
, YY 

780 NEXT ZZ:IF DD=62 THEN RETURN 
790 IF STRIGC0>=0 THEN DD=62 
800 IF DD<43 THEN BB=6 

810 CE=XX:XX=XX+BB~3:IF XX<1 THEN XX=N 
N 

820 IF XX>NN THEN XX=1 

830 SOUND 0,DD*3,10,6:COLOR 130:PLOT X 
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X,YY:XX=XX^i:SOUND 0,0,0,0:GOTO 710 
840 REM DISPLAY PLAY ORDER INDICATORS 
850 CL1=5 : RU1 = 8 : POSITION 15.6:? U6;"&. 
'P":IF NC THEN POSITION 14.4:? »6;">:! 
":CL1=8:RU1=5 

860 POSITION l,CLl:? **6 ; L4S ' POSITION 1 
,RUl:? »6;L3$:RETURN 

870 REM ASSIGN POSSIBLES & SORT THEM 
880 RESTORE 2590 : 5C = 0 : FOR RP = 0 TO 14 : C 
T=l:FOR BB=6 TO 11 : READ C C : M < B B > = C C : N E 
XT BB:LL=6:HH=9:G0SUB 2390 
890 IF RP=7 THEN POSITION 17,5:? «6j n « 
"; .'SOUND 0,5,6,2: AA = AA^1 : SOUND 0,0,0,0 
900 REM PAIRS 

910 FOR BB = 6 TO 8 : IF U cMcBB*J=U CM cBB + 1 

)) THEN CT=CT*CT+2 

920 REM CHECK FOR STRAIGHTS 

930 NEXT BB:BB=UCMC631 :CC=U€MC7)> :DD=U 

CMC8JJ :EE=UCMC9>> : IF BB=CC-1 AND BB=DD 

-2 THEN CT=CT+3 

940 IF BB=DD - 1 AND BB=EE~2 THEN CT=CT+ 



DD-1 AND CC=EE-2 THEN CT=CT+ 



AND BB = EE - 3 



950 IF CC 

3 

960 IF BB=CC-1 AND BB=DD -2 

THEN CT=CT-2 
970 REM UALUE OF CRIBS CARDS 
980 FF=0:BB=UCMC10>J :CC=UCMC11JJ :IF BB 
=CC OR BB+CC=15 THEN FF=2 

990 IF BB+CC=5 OR BB=5 OR CC=5 THEN FF 
= FF + 2 

1000 IF BB=CC-1 THEN FF=FF+0.5 
1010 IF CR THEN FF= - FF 
1020 REM 15*5 

1030 BB = NCMC6>):CC = NCMC7>1 :DD=NcMc8>> : 
EE=NCMC9>> :IF BB+CC+DD=15 OR BB+CC=15 
THEN CT=CT+2 

1040 IF BB+CC+EE=15 OR BB+EE=15 THEN C 
T=CT+2 

1050 IF CC+DD+EE=15 OR CC+DD=15 THEN C 
T=CT+2 

1060 IF BB+CC+DD+EE=15 OR BB+DD=15 THE 
N CT=CT+2 

1070 IF CC+EE=15 THEN CT=CT+2 
1080 IF DD+EE=15 THEN CT=CT+2 
1090 REM FLUSH 

1100 FOR BB = 6 TO 9 i IF F (M(BB> ) =F (M CBB + 
1>> THEN NEXT BB:CT=CT+4 

1110 CT= CCT-FFJ**2 : FOR BB = 6 TO 9 : IF N CM 
CBB>><6 THEN CT-CT+HIF NcMcAA>)=5 THE 
N CT=CT+2 

1120 NEXT BB : IF CT>=SC THEN SC=CT:FOR 
BB=6 TO lltPTCBBl=HcBBS :NEXT BB 
1130 NEXT RP:FOR BB=6 TO 1 1 : M c B B > = P T c B 
B) : NEXT BB'UO=0:CRC3>=MC10>:CRC4>=MC11 
> : RETURN 

1140 P$ = " '^POSITION 
1,3:? «6;P$:F0R A A = LL TO HH •' BB=3*A A+2 : 
SOUND 2,BB*3,10,6 

1150 COLOR KCMCAA>> :PLOT BB,3:C0L0R F( 
McAA>>:PLOT BB+1,3:NEXT AA : SOUND 2,0,0 
, 0 : RETURN 

1160 CS=-100:FOR AA=4 TO 7 i CT=0 : BB=TT+ 

NtMcAA3>:IF BB>31 THEN 1380 

1170 IF BB=31 THEN CT=CT+5 

1180 IF BB=15 THEN CT=CT+4 

1190 IF BB>15 THEN CT=CT+1 

1200 IF BB<5 THEN CT=CT+1 

1210 IF BB=5 OR BB=21 THEN CT=CT-2 

1220 IF BB=10 THEN CT=CT-1 

1230 IF UCMCAA>>=1 OR cBB>5 AND BB<9> 

THEN CT=CT-1 

1240 FOR CC=4 TO 7 : IF CC=AA OR NcMcCO 
>>10 THEN NEXT CC:GOTO 1340 
1250 IF U(M(CCn=l AND BB = 30 THEN CT = C 
T + l 

1260 IF UCMCCC>1=1 



AND BB=29 THEN CT=C 

T + l 

1270 IF U<MCCCJJ=2 AND BB=29 THEN CT=C 
T + l 

1280 IF UCMCCCJJ=3 AND BB=28 THEN CT=C 
T + l 

1290 IF UCMCCC>)=9 AND BB=6 THEN CT=CT 
+ 3 

1300 IF UcMcCO)=8 AND BB = 7 THEN CT = CT 

+ 3 



7 AND BB=8 THEN CT=CT 



1310 IF UCMCCCJJ: 

+ 3 

1320 IF UCMCCC>»=6 AND BB=9 THEN CT=CT 
+ 3 

1330 NEXT CC 

1340 IF PL<2 THEN 1370 

1350 GOSUB 1590:GOSUB 1640 : CT=CT+ cST+P 
R**l . 5 

1360 PL=PL-1 : II=MCAAJ :McAA>=CcPL> :FOR 
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BB = 1 TO PL-l:PTcBB>=PLcBB* •' NEXT BB-'GOS 

UB 1590:MCAA)=II: PL=PL+1 

1370 IF CT>=CS THEN C5=CT:CU=AA 

1380 NEXT AA: AA=CU : RETURN 

1390 NN = 10:GOSUB 700 •' POSITION XX + 1,YY: 
AA=INTccXX+2*'3>-l:IF TT+N CM c AA> > > 31 T 
HEN PL=PL-l:POP :GOTO 450 
1400 IF JJ<3 THEN RETURN 

1410 FOR AA = 1 + CR TO JJ-2 STEP 2 * IF A A = 

JJ THEN 1390 

1420 NEXT A A : RETURN 

1430 COLOR K CM c A A> > : PLOT CO,RO:COLOR F 
CMCAAH :PLOT CO + 1 , RO : TT = TT + N CM c A A> > 
1440 IF TT<32 AND HH-100 THEN POSITION 

9,10:? »6;TT 
1450 FOR DC=4 TO 0 STEP -i*FOR 5D=200 
TO 190 STEP -ItSOUND 0 , SD , 10 , DC : NEXT 5 
D : NEXT DC : RETURN 

1460 GOSUB 1590 : PT=5T :IF PT THEN GOSUB 
1560 

1470 GOSUB 1640:PT=PR:IF ZZ THEN GOSUB 

1520+ CZZ-1>*10 
1480 IF TT=15 THEN PT=2:G05UB 1520 
1490 IF TT=31 THEN PT=2 » GOSUB 1510:RC= 
NC 

1500 RETURN 

1510 Ll$="31 EP ":GBTB 1570 
1520 L1S = "15 EP "sGOTO 1570 
1530 L1$="LMP EP ":GBTO 1570 
1540 Ll$="3 EP -xGBTO 1570 
1550 L1S = "4 EP 'MGOTO 1570 
1560 L1$="J< EP " 

1570 UH=NC:GOSUB 2090 : POSITION 5,10:? 
»6; 1.1$; PT : GOSUB 2060:GO5UB 2070:POSITI 
ON 1, 10 : ? »6; P$ 

1580 POSITION 9,10:? t*6 ; TT : RETURN 
1590 ST=0:PLCPL>=UCMCAA>>:CCPL)=MCAA>: 
IF PL<3 THEN RETURN 

1600 FOR BB=1 TO PL -2 : ST=1 i FOR CC=BB T 
0 PL : PT CCO =PL CCCJ : NEXT CC 
1610 FOR CC=BB TO PL-1:IF PTcCCl>PT<CC 
+ U THEN DD = PTCCCJ :PTCCC1=PTCCC + H :PTC 
CC + 13 =DD : GOTO 1610 

1620 NEXT CC:FOR CC=PL-1 TO BB STEP -1 

:IF PTCPL>=PTCCC*+PL-CC THEN ST-ST+HN 

EXT CC : RETURN 

1630 NEXT BB : 5T=0 : RETURN 

1640 ZZ=0:PR=0:IF PL<2 THEN RETURN 

1650 FOR BB = 1 TO PL-UIF U CC cPL) 3 - U cC ( 

PL-BBn THEN RETURN 

1660 PR=BBMCBB + 13 i ZZ=BB+1 > NEXT BB * RETU 

1670 DD=3 : TT=50 : C0=2 : FOR A A=LL TO LL+3 
:GOSUB 1430 : C0 = C0 + 3 -NEXT AA * IF LL = 10 T 
HEN DD=4 
1680 REM FLUSH 

1690 PT=0:FOR NN=4 TO DD STEP -H POSIT 

ION 2,10:FOR A A = L L + l TO LL + NN 

1700 IF FCMCLL11=FCMCAAD THEN NEXT A A 

:PT = NN + l:? »6 ; " QTREP *';PT:GOSUB 20 

90 : PT=0 : GOSUB 1970-GOTO 1730 

1710 NEXT NN 

1720 REM 5 CARD RUN 

1730 GG=0 : RESTORE 3010:FOR FF=0 TO 4:F 
OR AA=0 TO 4 : READ CC « C C A A> =CC « NEXT AA 
1740 POSITION 2,9:F0R AA=1 TO 4 : IF U CM 
cLL + C C0J j j =U CM cLL + C cAAJ J i -AA THEN NEXT 

AA : PT=5 : GOSUB 1980:GOTO 1830 
1750 REM 4 CARD RUN 

1760 NEXT FF : GG = 0 : PT = 0 : FOR AA = 0 TO 16: 
FOR BB=0 TO 3 : READ CC : C CBB J =CC : NEXT BB 
:FOR BB=1 TO 3 

1770 IF UcMcLL + Cc0)))=UcMcLL + CcBB>>:>-B 
B THEN NEXT BB : PT=4 : GOSUB 1980:GG=1 
1780 NEXT AA : IF GG THEN 1830 
1790 RESTORE 3040:REM 3 CARD RUN 
1800 FOR AA=0 TO 2l:F0R BB=0 TO 2 : READ 

CC:CCBB)=CC:NEXT BB : FOR BB=1 TO 2 
1810 IF UCMCLL+CC0>)>=UCMCLL+CCBB>1>-B 
B THEN NEXT BB ■ PT = 3 : GOSUB 1980 
1820 NEXT AA 
1830 REM 5 CARD 15 

1840 TT=0:FOR AA=LL TO LL+4 * TT=T T+N CM C 
A A> 9 : NEXT AA : BB = 5 : GOSUB 1990 : EE=4 : REST 
ORE 2980 

1850 REM 15 FOR 2 

I860 FOR GG=3 TO 1 STEP -1 

1870 FOR AA=0 TO EE : FOR BB=0 TO GG : RE A 

D CC : C CBBl =CC : NEXT BB:TT=0:FOR BB=0 TO 

GG:TT=TT+NCMCLL+CCBB»J» :NEXT BB 
1880 GOSUB 1990:NEXT AA : EE=9 : NEXT GG 
1890 REM PAIRS 

1900 RESTORE 3000:FOR AA=0 TO 9:F0R BB 

continued on next page 
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=8 TO 1 • READ CC:CCBB>=CC:NEXT BB 
1918 PT=8:IF U CM cLL+C C0J * ) =U CM cLL+C el) 
n THEN PT = 2 : POSITION 4,18:? »6;"LMP E 
P 2":G05UB 2090:GOSUB 1978 
1928 NEXT AA 

1938 REM JACK OF STARTER 

1948 PT=l:X=-l:FOR BB=LL TO LL+3:X=X+1 
1958 IF U€MCBB>)=11 AND 5 CM cBB> * =5 CM C4 
>J THEN POSITION 5,18:? »6;"HK EP 1":G 
OSUB 2898:G0SUB 2810 : PT=8 : GOTO 1970 
I960 NEXT BB:PT=0 

1970 G05UB 2020 : POSITION 1,18:? »6;P$: 
RETURN 

1980 G05UB 2090:PQSITION 4,18:? »6;"J< 

EP ";PT:GOSUB 1970:RETURN 
1990 IF TT = 15 THEN PT=2:G05UB 2090:PO5 
ITION 4,10:? »6;"15 EP 2":G05UB 1970 
2000 TT=0 : RETURN 

2010 COLOR 130:PLOT X*3 + l , RO : G05UB 206 
0:COLOR 0:PLOT X*3 + l , RO : RETURN 
2020 REM ARROUS -> 

2030 FOR FF=0 TO BB - 1 : RU=RO : CO=C cFF> *3 
+l:CL=CO:IF CO>10 THEN R0=5:CO=14 
2040 HH=0:IF PT THEN HH=130 
2050 COLOR HH : PLOT CO , RO : R0 = RU : CO=CL : N 
EXT FF:GOSUB 2060:IF HH THEN PT=0:BB=5 
:GOSUB 2060:GOTO 2020 

2060 FOR ZZ=0 TO D:P05ITI0N 1,9:? «6 ; " 
!-PNOJ*';SCc0i+BD; POSITION 10,9:? «6 ; " 
mi fi!ima";SCci3+AD:NEXT ZZ : RETURN 
2070 FOR ZZ=0 TO D*3:NEXT ZZ 
2080 RETURN 

2090 NU=ABSCUH-U :FOR UU = 1 TO PT : 5C cUH 
J=SCCUHJ+1:G0SUB 2100:COLOR D Y : PLOT CL 
,RU:SOUND 3,0,0,0:NEXT UU : RETURN 
2100 IF 5CCUH> >SCCNU) THEN 2160 
2110 IF SCCUHX20 THEN CL = SC cUH* -1 I RU = 
0 : DY=216 

2120 IF SCfUH»>19 THEN CL=19 : RU=SC cUH) 

-20 : DY=221 : IF 5CcUHi=20 THEN DY=211 

2130 IF SCCUH)>30 THEN CL = 50 - 5C cUH> : RU 

= ll:DY = 216:IF SCcUH>=:31 THEN DY = 171 

2140 IF SCCUH*>49 THEN CL=0 : RU=61 - SC cU 

Hi:DY=22l:IF 5CcUH*=50 THEN DY=213 

2150 SOUND* 3, 9, 8+UH*2, 16+UH*2 : RETURN 

2160 IF SCCUHJ>50 THEN CL=0 : RM=61 - SC cU 

H>:DY=217:IF UH THEN DY=218 

2170 IF SCCUHX51 THEN RU = 11 : CL = 50 - SC c 

UH> :DY=215:IF UH THEN DY=214 

2180 IF 5CCUHJ<32 THEN CL=19 : RU=5C CUH> 

-20:DY=218:IF UH THEN DY=217 

2190 IF SCCMHK21 THEN RU=8 : CL=SC <UH* - 

l:DY=214:IF UH THEN DY=215 

2200 REM IF 5CCUH>=61 

2210 IF 5CCUH1-61 THEN SOUND 3,9,8+UH* 
2, 10+UH*2 : RETURN 

2220 U=UH:N = NU-'FOR SD = 0 TO 16 STEP 0.2 
5:S0UND 0 , 1 , 6 , SD « NEXT SD 

2230 COLOR 0:PLOT 0,0:DRAUTO 19,0:DRAU 

TO 19,ll:DRAUT0 0,ll:DRAUTO 0,0 

2240 IF NU THEN BD=BD+60 

2250 IF UH THEN AD=AD+60 

2260 IF AD>70 OR BD>70 THEN 2310 

2270 SCCUH3=0:QQ=PT-UU*1:PT=5CCNUJ :UH= 

NU:5CCUH»=0 

2280 IF PT THEN G05UB 2090 
2290 IF QQ THEN PT = QQ : UH=NU : GOTO 2090 
2300 PT=0:UH=U:NU=N:RETURN 
2310 GRAPHICS 18:G0SUB 505:FOR AA = 0 TO 
3:SETC0L0R A A , 5*A A , c A A + 4* *2 : NEXT AA:I 
F NOT UH THEN 2350 

2320 ? »6;" GOOD GAME !!!!••# "QHHU I0M10 ft 
@ ffiSHffl HB";" could be expected "nnra 

is hh Has mssHfflH" , anm" 

2330 GOSUB 2570:IF LP = 89 THEN RUN 
2340 GOTO 2330 

2350 ? **6;" bohied msm a bheih"," i del 

IEUE I KNOU"," what went wr ong . " , "mmm 

o m rasa Hiamra ramma ••; 

2360 ? »6; M now that i realize"* "WHO I' 

m up against fflfflfii emuum MfflmnmiiMa raraia 

[§B Y'N" 

2365 GOSUB 2570:IF LP=89 THEN RUN 
2370 POSITION 4,5:? »6 ; f^Ii'lOffliai^l ! H ! M 
2380 GOTO 2388 
2398 FOR A A=LL TO HH 

2488 FOR BB'- LL TO AA-l:IF U (« cflfi) )<U <M 
cBBJ > THEN CC = M€BBi :MCBB1=MCAA3 :MCAA> = 
CC-GOTO 2488 

2418 NEXT BB : NEXT A A : H = D : D = 8 ': GOSUB 286 
8 : D=H : RETURN 

2428 REM KEYBOARD OPTION, TITLE, 
INSTRUCTIONS, CHANGE 
CHARACTER SET, FROM LINE 18 

2438 GRAPHICS 18 : GOSUB 505 : GOSUB 2568: 
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AA = PEEKC186> -4 i BB = A A*256 x RESTORE 2620 : 
CR=INT CRND C0>*2) 

2440 DIM PS C18* , LIS ciu , L2$ cili , C C14* , 
UC141 ,SC14J ,KC14> ,FC14J , M C14> , N C14 J , PT 
C14),CRC4*,SCC2:>,PLC8),L3SC11J 
2458 DIM L4SC113 
2468 READ DD 

2465 IF DD = 72 THEN ? »6 ; -nQGOSBgHMarfliniS 
aBfflfflHBHpress J for Joystick" : GOSUB 258 
8:XX=LP:P0KE 77,126 

2478 IF DD=72 AND XX-74 AND XX-75 THEN 

XX=LP:GOTO 2465 
2488 REM 

2498 IF DD-288 THEN GOSUB 2560:GOTO 25 
28 

2588 FF = PEEKC756>*»256:F0R GG = 128 TO 28 
8 STEP 8:F0R CC=8 TO 7 « EE=PEEK cFF+GG+C 
CirPOKE GG+CC+BB, EE :NEXT CC:NEXT GG 
2518 POSITION 1,5:? »6 ; PRESS ARROUS 

FOR"," SELECTION,"," INSERT FOR 

CHOICE" : SC C8>=8 : SC CD =8 

2528 IF XX=74 THEN POSITION 2,5:? «6 ; " 
MOUE JOYSTICK FOR"," SELECTION"," F 

IRE FOR CHOICE PLUG INTO ttl" 

2530 IF DD+1 THEN FOR CC=0 TO 7 : RE AD E 
E:POKE DD+CC+BB,EE:NEXT CC-GOTO 2460 
2540 POKE 77,0:RETURN 
2550 REM TITLE 

2560 POSITION 6,3:? «6 ; "CRIBB AGE 

ATARI ! " : GOSUB 505:RETURN 
2570 REM GET AN ANSUER 

2588 POKE 694,8:P0KE 782,64:0PEN «1 , 4 , 
12,"K:":GET »1,LP:CL0SE «1 : ? st6;CHR$ci 
25> '.RETURN 

2598 DATA 6,7,8,9,18,11,6,7,8,18,9,11, 
6, 7, 8, 11, 9, 18, 6, 7, 9, 18, 8, 11, 6, 7, 9, 11, 8 
18, 6, 7, 18, 11, 8, 9, 6, 8, 9, 10, 7, 11 



11,7,18,6,8,18,11. 



8, 9, 18, 6, 11, 7. 
9,7,9,18,11,6. 



8,9 
8 



7,9, 
11, 6 



2600 DATA 6,8, 
6,9,18,11,7,8, 
, 18, 7, 8, 18, 11, 
2618 DATA 8,9,18,11,6,7 
2628 REM CHARACTER SET 

2638 DATA 8,8,8,34,28,8,8,8,8,16,8,16, 
8, 12, 126, 12, 8, 16,24, 8, 8, 99, 84, 82, 81, 18 
2,6 

2648 DATA 32,8,68,68,68,60,60,60,0,40, 
0,0,27,27,21,17,17,0,48,8,8,55,66,34,1 
8, 98, 8 

2658 DATA 56,8,8,236,178,282,178,172,8 
, 64, 0, 8,234, 74, 78, 74, 74, 8, 72, 8, 8, 112, 6 
4, 96, 64, 112, 8 

2668 DATA 88,8,8,66,69,71,69,117,8,88, 
8, 182, 182, 6, 6, 126, 126, 8, 9 6, 8, 8, 119, 37, 
38,37,119,8 

2678 DATA 184,0,8,39,85,78,85,37,8,112 
,8, 8, 39, 85, 118, 85, 65, 8, 12 8, 8, 8, 119, 36, 
38, 36, 39, 8 

2686 DATA 288,8,6,4,18,8,18,4,6,216,8, 
68, 66, 66, 78, 66, 61, 8,224, 8, 8, 173, 173, 17 
1,171,233,8 

2698 DATA 232,8,8,238,132,196,132,228, 
8, 24 0,6, 96, 96, 8, 6, 6, 6, 8, 24 8, 6, 68, 282, 7 
4,74,74,228,6 

2788 DATA 256,8,28,28,127,119,8,28,6,2 
64, 8, 8,26, 28, 62, 34, 119, 6, 272, 6, 14,4 ,4, 
116,36,68,8 

2718 DATA 288,0,6,215,210,178,178,146, 
8,288,6,36,46,48,48,44,36,8,296,8,8,11 
4,69,181,69,66,8 

2728 DATA 384,0,8,214,213,181,181,158, 
6, 312, 8, 8, 83, 84, 98, 81, 86, 6 , 328 , 6 , 8 , 218 
,213,181,181,146,8 

2738 DATA 328,0,8,98,133,133,181,98,6 
2746 DATA 336,0,0,14,10,12,10,10,0 
2750 DATA 344,0,0,115,84,98,81,118,8 
2766 DATA 352,0,0,14,10,14,8,8,8 
2776 DATA 368,0,0,39,82,114,82,87,6 
2788 DATA 368,0,0,50,69,36,21,98,6 
2796 DATA 376,0,6,39,85,86,85,37,6 
2866 DATA 384,0,0,112,88,96,86,86,8 
2816 DATA 392,6,6,116,68,166,68,71,6 
2826 DATA 466,0,0,88,88,112,86,86,8 
2836 DATA 468,0,126,126,6,6,102,102,0 
2846 DATA 416,6,8,83,84,82,81,118,6 
2858 DATA 424,0,102,102,96,96,126,126, 
0 

2868 DATA 432,0,126,126,0,0,0,0,0 
2876 DATA 448,0,6,6,6,6,126,126,8 
2886 DATA 448,0,126,126,0,6,126,126,6 
2896 DATA 456,0,96,96,96,96,96,96,0 
2900 DATA 464,0,6,6,6,6,6,6,0 
2910 DATA 472,0,54,119,127,62,28,8,8 
2928 DATA 486,0,24,68,126,126,66,24,6 
2936 DATA 488,0,182,162,182,102,102,10 
2,0 

ANTIC SOFTWARE LIBRARY 



2940 DATA 496,6,24,60,126,126,24,68,6 
2956 DATA 584,6,8,74,178,170,178,68,6 
2968 DATA -1 

2978 DATA 162,8,66,182,152 
1,2,3,8,1,2,4,6 



2966 DATA 8 
3,4,1,2,3,4 
2996 DATA 6,1 
4,6,3,4,1,2,3 
3806 DATA 6,1 
2,3,2,4,3,4 
3616 DATA 8,1 



1,3,4,6,2, 



3,8,2, 
3,1,4, 



2,3,4,8,1,2,4,3,6,1,4,2, 



ID 

BS 
LK 

NP 



3,6,4,1,2,3,4,8,1,2,3 

3826 DATA 8,1,2,3,8,1,2,4,8,1,4,2,6,4, 
1,2,4,8,1,2,8,1,3,4,0,1,4,3,0,4,1,3,41 
0,1,3,0,2,3,4,0,2,4,3,0,4,2,3,4,0,2,3 
3030 DATA 1,2,3,4,1,2,4,3,1,4,2,3,4,1, 

2,3 

3040 DATA 0, 1,2, 0,1, 3, 0,1,4, 0,4, 1,4, 8, 

1,0,2,3,0,2,4,0,4,2,4,0,2,0,3,4,0,4,3, 

4,0,3,1,2,3,1,2,4,1,4,2,4,1,2 

3050 DATA 1,3,4,1,4,3,4,1,3,2,3,4,2,4, 

3,4,2,3 



INSTANT CASSETTE TITLE DIRECTORIES 

VCR LABELER 
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LISTING 1 



Don't type the 
TYPO II Codes! 



: : INPUT «16; C i C 
"Max i mum 4 who 



1 REM UCR LABEL 1.0 

2 REM BY FRANK WALTERS 

3 REM <cH989, ANTIC PUBLISHING INC 

4 BRK= CPEEKC53279) <>5> : GOSUB 31000 

5 TYPE=0 

10 IF TYPE<1 OR TYPE>6 THEN 4000 
20 GOTO 1000 

100 ? :? "iirinnra«"; z$; "■□■mmmiiHBnrararaBrnm 

HMHIUMMI?!" : ? 

110 POKE 752,0:? P$;:INPUT »16;X$ 

120 L=LENCX$>:IF L<33 THEN X$cL+l,33*= 

BL$ CL + 1, 33) 

130 IF X$ci? f l?j<>" " THEN ? ••fflffl*"; DL T 
$;" Do not write i nf*ifc*it THI S SPACES" : ? 
:GOTO 110 

140 FOR 1 = 1 TO 33:IF X* Cl , II = "_" THEN 
X*Cl,lJ=" 

150 NEXT I:POKE 752,1 
160 RETURN 

190 ? "ffiffiffifflffiffifflfflfflBfflfflfflfflffifflSfflfflWfflffiffle 8 8 8QCIUCI 
":C=8:G0T0 226 
286 POKE 752,8:TRAP 198: 

wmmmmmvmmm uikkiuuuw i 

=INTCABSCC)> :XS="" 
218 IF 09999 THEN ? :? 
le digits .****": GOTO 288 
228 TRAP 4888e:IF C<1868 THEN X$="8":I 
F C<166 THEN X$="86":IF C<18 THEN X$ = " 
888" 

238 X$CLENCX$)+11=5TR$CCJ : POKE 752,1 
248 TRAP 48880:RETURN 

300 POKE 752,0:? :? "HraEEraEEM" ; Z$ ; "BOH 

fflSBGraBcrcna aaaaaci**; : input «*i6,*x$ 

310 IF LENCX$><>4 THEN X$ = "0 : 00" 

320 IF X$C2,2)=" m THEN X$c2,2>= 

330 IF X$C2,2><> OR LENcX$><>4 THEN 

? "fflffl"; : GOTO 300 
340 TRAP 40000:POKE 752,l:RETURN 
400 GOSUB 31000:CLOSE «4:0PEN «4 , 4 , 8 , " 
K s " : GET «4,K:IF CK<32 AND K027J OR K> 
124 THEN 466 

410 CLOSE »4:? CHR$ cK> ;: RETURN 

500 ? »1;UIDES;LINE1$;UIDE0FF$;C$ 

510 ? »1;U1$;WIDE$;LINE2$;UIDE0FF$;T$; 

112* 

520 RETURN 

1000 DIM Nl$ci6> ,N2$C16> ,N3$ci6> ,N4$ci 
6: , N5$ €16> , N6$ C16> 

1005 DIM X$ c33> , P$ C66> , CI* c4> , C2$ c4> , C 

3$c4),C$c4>,BL$c33>,DLT$ci9* 

1010 DIM T1S C4J , T2$ c4> , T3$ c4i , TS c4> , LI 

NE1$(16) , LINE2S ci6 J , HIDES (6 J , WIDEOFF $ c 

4>,B0LD$c4>,P66$c4>,P88$c4>,B0X$c21> 

1020 DIM TOPS C36> , Z$ ci> , UON$ c4> , UOFF* c 

43 , Ul$ C4J , U25 C4i 

1030 P$=" 

[Illljmmmmmmmmmirimirifrimmiriiiimmm fXTmmmaTmmrn r^-imrj-im 

" : B 0 X $ = "BBBBBBBBBBBBBBBBBBBBB" 

1848 top$= " ■fflwmBmr-imraiiBfflmraBtiWBmHHraiiPimraB 

BJmflHBHSB" 

1050 BL$«1*=" " : BL$ c33> =BL$ : BL$ c2* =BL$ 
: DLT$ CU = ••□•• :DLT$C19>=DLT«:DLT$C2>=DLT 
$ 

1066 ON TYPE GOSUB 4100,4200,4300,4400 
,4500,4600 

1070 IF TYPE>4000 THEN 4060 

2000 POKE 82, 2 : GRAPHICS 0 : POKE 710,194 



X J 

zu 

NZ 

NG 
EB 
PI 
IM 
QY 

UY 



GA 
JI 



EI 
CJ 
EN 
RM 
JF 
RK 

NJ 



HK 
MH 



FQ 
ZG 
EZ 
TO 
JY 
YX 

DU 



RJ 
PG 

GY 
OB 
YN 

JL 

ZP 

NI 

RP 

YY 



MAY 1989 



:POKE 709,204:POKE 752,1:? TOPS : GOSUB 
31000 

2010 ? :? "[^lmmmsisBmDBoaoDssBtiimHammsmD 

HBHEJH "; 

2020 GOSUB 400:K=K-48 

2030 IF K<1 OR K>3 THEN ? "ffl";:GOTO 20 
20 

2040 TOT = K : ? 

2100 Z$="M" : GOSUB 100 

2110 Nl$=X$ci,l6> »N2*=X* C18, 33J 

2120 GOSUB 200:C1$=X$ 

2130 GOSUB 300:T1$ = X$:? "H" ; TOP* : POSIT 
ION 8,2:? "ffi"; BOX$; "ffl" : POSITION 8,3 
2140 ? "11";N1$;" "; CIS ; "II" : POSITION 8, 
4:? "[Il";N2$;" "; 11$ ; "MJ" : POSITION 8,5:? 

"IB"; BOX$; "PI" 
2156 POSITION 8,7:? "[irJEBHfflHHBnrafflfflEHnB 

onBGnati"; 

2168 GOSUB 400:IF KO110 AND K<>78 AND 
K<>121 AND K<>89 THEN ? "ffl";:GOTO 216 

0 

2170 ? :IF K=78 OR K=110 THEN 2100 
2188 ON TOT GOTO 3886,2288,2200 
2200 Z$="&":G05UB 100 
2210 N3$=X$ci,l6> : N4$=X$ C18, 33> 
2226 GOSUB 286:C2$=X* 

2236 GOSUB 300 :T2$=X$: POSITION 2,5:? D 
LT$:P05ITI0N 8,5 

2248 ? "til";N3$;" "; C2$ ; "H" : POSITION 8, 
6:? "(I1";N4$; " " ; T2* ; "HI" : POSITION 8,7:? 

"IB" j BOX$; "ffl" 
2258 POSITION 8,9:? "[IDBBnfflflSflnfflraEflBBQB 
DHBBDaC"; 

2268 GOSUB 460 : IF KOH8 AND K<>78 AND 
K<>121 AND K<>89 THEN ? "S";:GOTO 226 

8 

2278 ? :IF K=78 OR K=118 THEN 2288 
2286 ON TOT1 GOTO 3666,2366 
2300 Z$="S":GOSUB 100 
2310 N5S=X$ci,i6> : N6$=X$ C18, 33> 
2328 GOSUB 200:C3$=X$ 

2338 GOSUB 300 : T3$=X$ : POSITION 2,7:? D 
LT$:P05ITI0N 8,7 

2348 ? "[I1";N5$;" "; C3$ ;"[!!": POSITION 8, 
8:? "tll";N6$;" "; T3$ ; "HI" : POSITION 8,9:? 
"ffl"; BOX*; "ffl" 

2356 position 8,ii:? "iingnnranHBRraraBEiin 
BBQBfflaD"; 

2366 GOSUB 466:IF KOH8 AND K<>78 AND 
K<>121 AND K<>89 THEN ? "*";:GOTO 236 

6 

2378 ? :IF K=78 OR K=118 THEN 2368 
2866 GOTO 3800 

2900 TRAP 40000:? :? ••BBEB6BS1BB" j DLTS , " P 
RINTER ERROR - ";PEEKC195> 

3000 ? :? " ao@Q[0[§HBfom[t]aBn[nB[3rinmn 

BI.I" : ? " LlBBBOL^HaBBBBQrilBmrarinflli" 

3010 GOSUB 400:IF K<>32 AND K<>27 THEN 

? "ffi"; : GOTO 3010 
3020 IF K=27 THEN CLOSE «4:CLOSE «1 : RU 
N 

3030 POKE 710,66:TRAP 2900:CLOSE «1 : OP 

EN t*l, 8, 8, "P : " : ? ttl;BOLD$; 

3648 IF T0T=3 THEN ? «1 ; P88$ ; : GOTO 386 

0 

continued on next page 
41 



EC 
FE 
OH 

ZI 

IJ 

YF 

QY 
BA 

EU 

CO 
NU 



HG 
TH 

EY 

KG 
IP 
RP 

BZ 

UQ 



NO 
HX 
ZU 
CU 

zz 
II 
oz 

DJ 

TA 
LM 

QO 



LZ 

FR 
RN 
UP 
GA 
NU 
RQ 



3858 ? ttl;P66$; 
3868 FOR 1=1 TO TOT 

3878 IF 1=1 THEN LINE1$=N1$ » LINE2$=N2$ 
:C*=C1$:T$=T1* 

3888 IF 1=2 THEN LINE1*=N3$ : LINE2*=N4$ 
i C$=C2$ : T$=T2$ 

3898 IF 1 = 3 THEN LINE1$=N5$:LINE2$=N6$ 
:C$=C3$:T$=T3$ 

3895 U1*= M B M «U2»="B M »IF T0T=3 AND I<3 
THEN Ul$=UON$ : U2$=U0FF$ 
3188 IF TOT = l THEN ? ttl ; 
3118 IF T0T=2 AND I=TOT THEN 
3128 GOSUB 588:NEXT I:? «1 ; " 
THEN ? tt±j—« 

? ttl;"":? 



? ttl;"" 
:IF T0T=3 



3158 ? "BBfflffl"; DLT*; : ? M 

□■BRroosanmmsori" » ? 

mm^DBBBBE" 

3168 ? " nBBamfflHDI 



ttl; « 



iiHnasHiaHHfn 
aBHH[M]srat3BmmraBn 



3178 POKE 752,l:P0KE 718,194:? :? M 

[IBEnSSHBH " J 
3188 GOSUB 488 : K=K-48 : IF K<1 OR K>3 TH 
EN ? "ffi"; : GOTO 3188 
3198 ON K GOTO 3288,2888,3218 
3288 ? "fflffl";DLT*; : GOTO 3838 
3218 CLOSE *t4:CL0SE ttl : POKE 82,2:P0KE 
752, 8 : GRAPHICS 8 : END 

4888 POKE 718,66*? "HNO PRINTER SUBROU 
TINE FOR TYPE □" ; TYPE 

4818 ? :? "Select your printer type.": 
? :? "The following types are avaiiabi 
e * •• 
4828 
4821 
4822 
4823 
4824 
4825 
4826 
4838 

have' 1 
4858 ? 
4868 ? 



? 
? 
? 
? 
? 
? 
? 
? 



•TYPE=1 
•TYPE=2 



mranraranrai 

SHHfflDHBBOHlflBGDaoail]" 

type =3 [mMtmnmnmimmmmi" 

• T Y P E = 4 HHIBHHtiMlHraBn [sMsHfl ' ' 

"TYPE = 5 HBHiiiijmBraraQiiiiiiiflosm- 1 
-type =6 [iiBfflranaBfiiraHmHranBBBB" 
:? "What type of printer do you 
JINPUT TYPE'.GOTO 18 
: END 

"HTYPE "; cTYPE-48881 '188; " Prin 
ter has not been tested . B" 
4878 ? "You Must delete line ";TYPE+5; 
" before":? "using this printer sub-ro 
ut i ne : " 

4888 IF TYPE>4888 THEN LIST TYPE , T YPE+ 
88:? :? :? T YPE+5 ; "ffiffi" ; : POKE 718,66 
4898 END 

4188 REM OKIDATA 92/192 
4118 WIDE$="fflffl" : REM 6CPI 
4128 MIDEOFF*="ffl":REM 12CPI 
4138 P66$="B6":REM 6 LINES'INCH 
4148 P88$="B8" : REM 8 LINES'INCH 



SI 
GO 
HP 
BC 
C5 
KM 
RH 
LX 
NS 
HZ 
RD 
SO 
BE 
UR 
JY 

EP 

QY 
WF 
UA 

UZ 

ZY 

RA 
US 

uo 

CB 

AN 

TO 
UY 
HE 
RL 
TF 
BK 
AR 

UC 

FX 

YF 

LN 

on 

XL 
CU 
EK 

on 



4158 BOLD$="Hl" : REM CO 
4168 UON$="BC"»REM UNDERLINE ON 
4178 UOFF$="HD" : REM UNDERLINE OFF 
4188 RETURN 

4288 REM EPSON'STAR NX-18 
4218 UIDE$="KMD":REM 6 CPI 
4228 I4IDE0FF$ = "HMS!" : REM 12CPI 
4238 P66$="»2":REM 6 LINES'INCH 
4248 P88$ = "KJ8" : REM 8 LINES'INCH 
4258 BOLD$="HG" : REM DBL STRIKE 
4268 UON$ = "K-IB":REM UNDERLINE ON 
4278 UOFF$="H-W":REM UNDERLINE OFF 
4288 RETURN 

4388 REM GEMINI 18X'STAR SG-18 
4318 UIDE$ = "SBUfiUCO" : REM 6CPI C12CPI-D0 
UBLE WIDTH 

4328 MIDEOFF*="KWW" : REM 12CPI CDOUBLE 
WIDTH 0FF3 
4338 GOTO 4238 
4488 REM PANASONIC 1888 

4485 TYPE=4488 : REM DELETE THIS LINE IF 

USING THIS SUB-ROUTINE 
4418 UIDE$ = "BMHW(B" « REM 6CPI C12CPI - DOUB 
LE WIDTH ON) 

4428 WIDEOFF$="BWW" : REM 12CPI CDOUBLE W 
IDTH OFF! 
4438 GOTO 4238 
4588 REM CITOH PROWRITER 
4585 T YPE=4588 : REM DELETE THIS LINE IF 

USING THIS SUB-ROUTINE 
4518 UIDE$ = "fiEU":REM 6CPI C12CPI - DOUBLE 
WIDTH ON> 

4528 WIDEOFF$="fci" : REM 12CPI CDOUBLE WID 
TH OFF» 

4538 P66$="fiA" » REM 6 LINES/INCH 
4548 P88$="KB" t REM 8 LINES' INCH 
4558 BOLD$ = "fil ! " : REM DOUBLE STRIKE 
4568 UON$="KX":REM UNDERLINE ON 
4578 UOFF$="BY":REM UNDERLINE OFF 
4588 RETURN 

4688 REM OTHER PRINTER : ENTER YOUR CODE 
S 

4685 TYPE=4668:REM DELETE THIS LINE IF 

USING THIS SUB-ROUTINE 
4618 WIDE$ = "HSB*PSi" : REM 6CPI C12CPI - DOU 
BLE WIDTH ON) 

4628 WIDEOFF« = "8filf!(fiffl" : REM 12CPI CDOUBLE 
WIDTH OFF) 

4638 P66$="MfflfflH" : REM 6 LINES / INCH 
4648 P88$ = "9jni9Efl":REM 8 LINES'INCH 
4658 B OLD $ = "HUBS!" • REM DOUBLE STRIKE 
4668 U ON* = "BIB) WW" * REM UNDERLINE ON 
4678 U OFF $ = "SHUSH" : REM UNDERLINE OFF 
4688 RETURN 
UN 31888 JNK=USR c ADR < " hQiatth hM*B\apn*aLJ:l!+ 
3 , BRK3 : RETURN 
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LISTING 1 



Don't type the, 
TYPO II Codes! 



CA 
KS 
ZJ 
AD 
UP 

AG 



AC 
AU 
HK 
LU 
NI 

OR 

42 



18 REM BASIC ENHANCEMENTS 
28 REM BY PAUL ALHART 

25 REM cTYPE-IN UERSION BY C JACKSON* 
38 REM cc>1989, ANTIC PUBLISHING INC 
48 DIM Q$C1) :Q$=CHR$C34> : POKE 718,38:P 
OKE 789,8:P0KE 712,66 

58 POKE 16,112:P0KE 53774,112:? "Hffi 
BASIC Enhancements" : ? :? " 
by Paul Aihart">? 
55 ? :? " c 1* BINLOAD","C 73 ERROR. 1 
64" 

68 ? :? " C 23 DEC'HEX","C 83 LOCK":? 

:? " c 33 DELETE", "c 93 OPENFILE" 
78 ? :? " C 43 DIR","C183 RENAME":? : 
? " c 53 DRIUES", "C113 UNLOCK" 
88 ? :? " c 63 ERROR", "C123 URITEDOS" 
:? :? :? , "Your Choice"; 'INPUT CHOICE 

85 TRAP 58:0N CHOICE GOSUB 188,288,488 
, 588, 1588, 688, 1988, 1788, 2888, 1888, 1758 
,2188 

86 POKE 764,255:? i? " cPress any Key 
to continue 



DS 
XE 
ZP 
UU 

BU 



KS 

KB 

FP 

EE 

00 
LD 

RU 



88 IF PEEKC7643=255 THEN 88 

98 POKE 764,255:G0T0 58 

99 END 

188 TRAP 48886:? "Creating BINLO AD" » CL 
OSE »l:OPEN ttl,8,8,"D:BINL0AD" 
118 ? ttl;"IF PEEKC55763 <>162 THEN ? "; 
Q$;"HNQT COMPATIBLE with this D05.";Q* 
; " : STOP" 

128 ? ttl;"CLOSE »l:CLR : DIM Z*ci83:? " 

;Q$;"HEnter the Binary File to RUN.";Q 

*;":? ";Q$;" Ex. D2 : GAME" ; Q$ 

138 ? ttl i»? ";QS;"ffin";Q*;":INPUT «16,Z 

$:OPEN ttl,4,B,Z$:Z = U5Rc55763 " 

148 CLOSE ttl:? "BINLO AD Comp 1 e ted . " : ? 

: R E T URN 

288 TRAP 48886:? ''Creating DEC":CLOSE 
ttl:OPEN ttl,8,8,"D:DEC" 

218 ? ttl;"CLOSE ttl : CLR « DN = PEEK C7693 " 
228 ? ttl;"DIM DN$ C63 ,ZZ$C163 , Z$ C53 , Z C4 
3:0PEN tti,4,8,";Q$;"K:";Q$;":? ";0$; 
225 ? tti;*«HEnter Decinai Nunber up to 
65535"; Q$ 

ANTIC SOFTWARE LIBRARY 



236 ? ttl;"? ••; QS; "fflO"; QS; : DNS="; QS; "D 

1 : DEC" ; QS ; " : DNS C2,2>=STRS cDN> " 

240 ? »1;"? ";QS;"BBEJ";QS;":FOR 1 = 1 TO 

4 : Z CD =8 : NEXT I :ZZS="; QS ; "8123456789 AB 
CDEF"; QS 

250 ? ttl;"? ";QS;"Sin";QS;":FOR 1 = 1 TO 

5 s GET ttl,Z"; 

255 ? Hli n i IF Z>47 AND Z<59 THEN ? CHR 
ScZ* ; :ZScl,I>=CHRScZ> :NEXT I=CL05E ttl" 
260 ? ttl;"? "; OS; "H"; QS; : Z = UAL cZS> : FO 
R 1=1 TO 4sZcl>=0:NEXT I" 
270 ? ttl;"? "; QS; "H"; QS; " : ZZ=INT cZ'489 
6»:IF ZZ>8 THEN Z (D =ZZ : Z=Z -4896*ZZ" 
280 ? ttl;"? "; QS; "H"; QS; " : ZZ=INT cZ'256 
>:IF ZZ>0 THEN Z c2> =ZZ : Z = Z - 256*ZZ" 
290 ? ttl;"? "; QS; "Kl"; QS; " : ZZ = INT cZ'16> 
»IF ZZ>8 THEN Zc3>=ZZ:Z=Z-16*ZZ" 
300 ? ttl;"? ";QS;"H";QS;":Zc4:i=Z" 

310 ? ttl;"? " ; QS ; "BEQDECIMAL ";QS;";ZS; 
";OS;" = " ; OS ; " ; : FOR 1=1 TO 4:? ZZS CZ C 
I> +1, Z CD +1) ; :NEXT I:? ";QS; 

311 ? ttl;" HEX";QS 

320 ? ttl;"? " ; OS ; "BBQSBPr ess SPACE BAR t 
o Continue* ";QS;**:? ";QS;"H to Convert 

HEX Nunbers* "; QS; 
325 ? ttl;":? ";QS;"An«J other Key to Qu 
it.";QS;":CLOSE ttl" 

330 ? ttl;"? "; QS; "fflQ" ; QS; " : OPEN »1 , 4 , 0 
.••;QS;"K:";QS;":GET **l,Z:CLOSE ttl:"; 
335 ? ttl;"IF Z=72 THEN DNS c4 > = " ; OS ; "HE 
X";QS; ": ENTER DNS" 

348 ? ttl;"IF Z=32 THEN ENTER DNS" 

358 CLOSE ttl:? "DEC Comp 1 eted . : ? »GOT 

0 1388 

488 TRAP 48888:? "Creating DELETE" s CLO 

5E ttl •' OPEN ttl,8,8,"D:DELETE" 

418 ? «l;"CLOSE ttl : CLR : POKE 718,66:DI 

M ZSC18>:? "; OS; "KUhich File to DELETE 

?";QS 

428 ? ttl;"? ";QS;"BB Ex. D2 : DAT A . EXE" 
;QS;":INPUT **16,ZS:? " ; QS ; "MDe 1 e t i ns " 
;QS;";ZS:"; 

425 ? ttl;"POKE 718,148:XI0 33,ttl,8,8,Z 
S" 

438 CLOSE ttl:? "DELETE Coup l eted .": ? ■ 
RETURN 

588 TRAP 48888:? "Creating DIR":CLOSE 
ttl:OPEN ttl , 8 * 8 # "D * DIR" 

518 ? ttl;"CLOSE ttl : CLR ? DIM ZSC18>:Z*= 

";QS;"Dl:*.*";QS;"x? " ; QS ; "SUh i c h Driv 

e?"; QS; : OPEN ttl,4,8,";QS; 

511 ? ttl;"K:";QS;":GET ttl,Z:CL05E ttl : I 

F Z<49 OR Z>56 THEN STOP ■■ 

528 ? ttl;"? ";QS;"H";QS;":ZSC2,2>=CHRS 

CZ>:0PEN ttl, 7, 8, ZS : FOR 1=1 TO 66:INPUT 

ttl^ZS:? ZS:NEXT I" 
538 CLOSE ttl:? "DIR Comp l e ted . * ? ' RET 
URN 

688 TRAP 48888:? "Creating ERROR":CLOS 
E ttl:OPEN ttl, 8, 8, "D : ERROR" 
618 ? ttl;"CLR:CLOSE «1 : DN=PEEK C769> : D 
IM DNS c 8 > ,ZSC42> i DNS = " ; QS ; "Dl : ERROR" ; Q 
S; ": DNS C2,2>=STRS cDN»" 

628 ? ttl;"? ";QS;"HEnter ERROR tt ";QS; 
";:FOR 1=1 TO 5 : GET «16,Z:IF Z<155 THE 
N ZScl,D=CHRScZ) :NEXT I" 
638 ? ttl;"? ";QS;"H";QS;":Z=UALCZS>" 
648 ? ttl;"? ";QS;"H";QS;":IF Z=l THEN 
ZS="; QS; "No Error"; QS 

658 ? ttl;"? ";QS;"H";QS;":IF Z=2 THEN 
ZS=";QS;"insufficient Menor y " ; QS 
668 ? ttl;"? "; QS; "S"; QS; " : IF Z=3 THEN 
ZS="; fl$; "Uaiue Error";QS 

678 ? ttl;"? "; QS; "B"; QS; " : IF Z=4 THEN 

ZS=";QS;"Too Many Uar i ab l es" ; QS 

688 ? ttl;"? "; OS; "S"; QS; " : IF Z=5 THEN 

ZS="; OS; "String Length Error"; QS 

698 ? ttl;"? ";QS;"H";QS;":IF Z=6 THEN 

ZS=";QS;"Out of Data Error";QS 

788 ? ttl;"? "; QS; "IS"; 0$; " : IF Z = 7 THEN 

ZS="; QS; "Nunber Greater than 32767";QS 

718 ? ttl;"? "; QS; "H"; QS; " : IF Z=8 THEN 

ZS="; Q$; "Input State Me nt Error"; QS 

728 ? ttl;"? "; QS; "H"; QS; " : IF Z=9 THEN 

ZS="; QS; "Array or String DIM Error";QS 

738 ? ttl;"? ";QS;"S";QS;":IF Z=18 THEN 

ZS=" ; Q$ ; "ArguMent Stack Ouerfiow";QS 
748 ? ttl;"? "; QS; "H"; QS; " : IF Z=ll THEN 

ZS="; QS; "Floating Point Overflow or U 
nderf low Error";QS 

758 ? ttl;"? "; QS; "H"; QS; " : IF Z=12 THEN 

ZS="; Q$; "Line Not Found";QS 
768 ? ttl;"? ";QS;"H";QS;":IF Z=13 THEN 

ZS=";Q$;"No Matching FOR Statenent";Q 

s 



SY 



05 



UQ 
YT 
IG 
RP 
EA 
BP 
DK 
QG 
MK 
QU 



TI 
XL 
MF 



MY 



HK 
ED 
MU 
UT 
EH 



MC 
NB 
MK 



AT 



UJ 



00 



FK 
IS 



OF 



PI 



EJ 



JF 



CU 
OK 
ZP 
AT 
RM 
ND 



NP 



778 ? ttl;"? "; QS; "H"; QS; " : IF Z=14 THEN 
ZS="; QS; "Line Too Long";QS 

? ";QS;"B)";Q$;":IF Z = 15 THEN 
GOSUB or FOR Line Deieted";Q 



788 ? ttl 
ZS="; QS 
9 

790 ? ttl 

Z*=";QS 
888 ? ttl 

ZS = " 
818 ? 

ZS = " 
828 ? 

ZS = " 
838 ? 

ZS = " 
840 ? 



; OS; 
ttl i 



? ";QS;"H";QS;":IF Z=16 THEN 
RETURN Error";QS 
? ";QS;"H";QS;":IF Z=17 THEN 
Garbage Error";QS 
? "; QS; "S"; QS; " : IF Z=18 THEN 
QS;"lnvaiid String Char ac ter " ; QS 
ttl;"? ";QS;"H";QS;":IF Z=19 THEN 
QS;"LOAD Prosr^N. Too Long";QS 
ttl;"? ";QS;"H";Q$;":IF Z=20 THEN 
QS;"Bad Channel NuMber";QS 
ttl;"? ";QS;"B1";QS;":IF Z = 21 THEN 
ZS="; QS; "LOAD File Error";QS 
858 ? ttl;"? "; QS; "M"; QS; " : IF Z=128 THE 
; QS ; "BREAK Abort";Q$ 

ttl;"? "; QS; "H"; QS; " : IF Z=129 THE 
"IOCB Already Opened";QS 
? "; QS; "H"; QS; " : IF Z=138 THE 
"Nonexistent Device";QS 
? ";QS;"H";QS;":IF Z=131 THE 
"IOCB Opened for WRITE Only" 



ttl; • 
; OS i 



N ZS = 
868 ? 
N ZS=";Q$ 
878 ? ttl; 
N ZS=";QS 
888 ? 
N ZS = 
;QS 
898 ? 
N ZS = 
988 ? 
N ZS = 
918 ? 
N ZS = 
928 ? 
N ZS = 
QS 

938 ? 
N ZS = 
948 ? 
N ZS = 
958 ? 
N ZS 



? "; QS; "K"; QS; " : IF Z=132 THE 
"Invalid CoMMand";QS 

? "; OS; "H"; QS; " : IF Z=133 THE 

"Device or File Not Open";QS 
? ••;Q$;"K";QS;":IF Z = 134 THE 
"Bad IOCB NuMber";QS 
ttl;"? "; OS; "H"; QS; " : IF Z=135 THE 
;QS;"I0CB Opened for READ Only"; 



ttl; • 
; QSj 
ttl; ' 
; QS; 
ttl; • 
QS; 



ttl j 



; QS; "H"; QS; " : IF Z=136 THE 
;QS;"EOF cEnd of Fiie>";QS 
ttl;"? ";QS;"K";Q$;":IF Z=137 THE 
; QS; "Truncated Record";QS 
ttl;"? ";QS;"H";QS;":IF Z=138 THE 
;QS;"Device TiMeout";QS 



968 ? ttl;"? "; QS; "H"; Q$; " : IF Z=139 THE 
N ZS="; Q$; "Device NAK" ; OS 

978 ? ttl;"? "; QS; "H"; QS; " : IF Z=148 THE 
"Serial Bus Franing Error";Q 



? "; QS; "H"; QS; " : IF Z=141 THE 
"Cursor Out of Range";QS 
? "; QS; "H"; QS; " : IF Z=142 THE 
"Serial Bus Overrun";QS 
"? "; QS; "H"; QS; " : IF Z=143 TH 



N ZS=";QSj 
S 

988 ? ttl;' 
N ZS=";QSj 
998 ? ttl;« 
N ZS=";QSj 
1888 ? ttl; 

EN ZS="; QS; "Serial Bus ChecksuM Error' 
; QS 

1818 ? ttl;"? ";QS;"H";QS;":IF Z=144 TH 
EN ZS="; QS; "Device Done Error";QS 
1828 ? ttl;"? "; QS; "H"; QS; " : IF Z=145 TH 
EN ZS="; QS; "Read After Write CoMPare 
Error" ; QS 

1838 ? ttl;"? "; OS; "H"; QS; " : IF Z=146 TH 
EN ZS="; QS; "Function Not Imp l enented" ; 
QS 

1848 ? ttl;"? "; QS; "H"; QS; " : IF Z=147 TH 
EN ZS="; QS; "Insuf f icient RAM" ; QS 

1841 ? ttl;"? "; QS; "H"; QS; " : IF Z=158 TH 
EN ZS="; QS; -Serial Port Already Open"; 
OS 

1842 ? ttl;"? "; QS; "H"; QS; " : IF Z=151 TH 
EN ZS="; QS; "Concurrent Mode Not Enable 
d"; QS 

1843 ? ttl;« 
EN ZS=";QS; 
er" ; QS 

1844 ? tti;« 
EN ZS=";Q$j 
or"; QS 

1845 ? ttl;« 
EN ZS=";Q$; 
"; QS 
1858 ? 



'? "; QS; "ifi"; QS; " : IF Z=152 TH 
"Illegal User - Supp i i ed Buff 

•? "; QS; "H"; QS; " : IF Z=153 TH 
"Active Concurrent Mode Err 

•? ";QS;"H";QS;":IF Z=154 TH 
"Concurrent Mode Not Active 



1878 ? 
EN Z$ = 
1888 ? 
EN ZS = 
1898 ? 



MAY 1989 



ttl;"? "; QS; "H"; QS; " : IF Z=168 TH 

EN ZS="; QS; "Device Nunber Error";QS 
1868 ? ttl;"? "; QS; "H"; QS; " : IF Z=161 TH 
EN_ZS="; Q$; "Too Many OPEN Fiies";QS 

ttl;"? "; OS; "H"; Q$; " : IF Z=162 TH 
;QS;"DiSK Fuil";QS 

ttl;"? ";QS;"H";Q$;":IF Z=163 TH 

;QS;"Fatai SysteM Error";QS 
ttl;"? "; QS; "S"; QS; " : IF Z=164 TH 
EN ZS="; QS; "Fi le Nunber MiSMatch";QS 
1188 ? ttl;"? "; QS; "H"; QS; " : IF Z=165 TH 
EN ZS="; QS; -Bad File NaMe" ; OS 
1118 ? ttl;"? "; QS; "H"; QS; " : IF Z=166 TH 
EN ZS="; QS; "POINT Data Length Error";Q 
s 

continued on next page 
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1128 ? ttl;"? "; QS; "IB"; QS; " : IF Z = 167 TH 

EN ZS=";QS;"Fiie Locked";Q5 

1138 ? ttl;"? "; QS; "H"; QS; " : IF Z = 168 TH 

EN ZS = " ; QS ;" Invalid XIO CoMMand";QS 

1148 ? ttl;"? ";QS;"H";QS;":IF Z = 169 TH 

EN Z$ = ";Q$; H Directory Fuii";QS 

1158 ? ttl;"? ";QS;"K";QS;":IF Z = 178 TH 

EN ZS = "; QS; "Fi le Not Found";fl5 

1168 ? ttl;"? ";QS;-H";QS;":IF Z = 171 TH 

EN ZS = " ; QS ; "POINT Invaiid";Q$ 

1178 ? 1115"? ";QS;"H";QS;":IF Z = 172 TH 

EN ZS=";QS;"DOS 1 Fiie";QS 

1188 ? «1;"? ";QS;"H";QS;":IF Z = 173 TH 

EN ZS = "; QS; "Bad Sector";QS 

1198 ? ttl;"? ";QS;"H-;QS;-:IF Z=255 TH 

EN ZS = - ; QS; "FORMATTING Error cDOS 2.5> 

"; OS 

1288 ? ttl;-? ";QS;"NERROR ";QS;-;Z;";Q 
S;- = -;QS;-;ZS:? " ; 0$ ; "BBS)fflffi*l" ; 0$ 
1218 ? ttl;-? ••; QS; "fflHPress SPACE BAR t 
o Continue ."; QS; -: ? ";QS;"Any Other KE 
Y to QUIT.";QS 

1228 ? ttl;**OPEN ttl , 4 . 8 , " ; 0$ ; "K : " ; 0$ ; " : 
? ";QS;"ffln";QS;":GET ttl,Z:CLOSE ttl:IF 
Z=32 THEN ENTER DNS" 

1238 CLOSE ttl:? "ERROR Comp l e ted . " : ? « 
RETURN 

1388 ? "Creatine HEX":CLOSE tti:OPEN ttl 
, 8. 8, "D : HEX" 

1318 ? ttl;"CLOSE ttl:CLR x DN= PEEKC769* 

:DIM DNSc6)«ZSc4)*ZZSc4) : ? ";QS; 

1315 ? tti;»HEnter HEX Nunber to Conver 

t . " ; QS ; " : OPEN ttl , 4 , 8 , " ; QS ; "K : " ; 0$ 

1328 ? ttl;-? "; QS; "SBD"; QS; " : DNS = "; QS; " 

Dl : HEX"; QS; " « DNS c2,2>=5TRS cDN>" 

1338 ? ttl;-? "; QS; "fflO"; QS; 

1335 ? ttl;-:FOR 1=1 TO 4 : GET ttl,Z*IF Z 

>47 AND Z<58 OR Z>64 AND Z<71 THEN ZSc 

I,D=CHRScZ> :? CHRS cZ> ; :NEXT I" 

1348 ? ttl;-? "; QS; "H"; QS; -: CLOSE ttl : ZZ 

$=";Q$;-8888";Q$;":Z=LENCZ5>" 

1358 ? ttl;-? -;0$;-!fi-;Q$;-:ZZScl+4-ZJ= 

ZS:ZS = ZZ$ci,U :Z = 8 :ZZ = 8" 

1368 ? ttl;-? -;QS;"K1-;Q$;-:Z = ZS = -;QS;- 
F"; OS; "*15+ZS=- ; 0$; "E"; 0$ ; -*14+ZS=- ; QS 
; "D"; QS; "*13+ZS=-; 
1361 ? ttl; QS; -C"; QS; 

1365 ? ttl; -*12+Z$="; QS; "B"; QS; -*11+ZS= 
"; QS; "ft"; 0$; -*18+ZS=- ; QS ; "9"; QS; "*9+ZS 
=" ; OS ; "8" ; 0$ ; -*8" 

1378 ? ttl;-? -; 0$; "H"; QS; " : Z=Z+Z$="; QS 
;"7";QS;"*7+Z$=";QS;"6";QS;-*6+Z$=";QS 

1372 ? ttl; -5"; QS; -*5 + ZS = -; QS; -4"; QS; -* 
4 + ZS = "; OS; "3"; QS; -*3+ZS=-; OS; "2"; OS; "* 
2+ZS=-;0S;-l-; 

1373 ? ttl;OS; 

1374 ? ttl;-:Z=Z*4896:ZZ=ZZ+Z:ZS=ZZSc2. 
2 ,.. 

1388 ? ttl;»? -; OS; -H-; QS; - : Z=ZS=-; OS; - 
F-; OS; -**15+ZS = -; OS; -E" ; QS ; "*14+ZS=- ; QS 
; " D " ; 

138l'? ttl; OS; -*13+ZS=-; QS; 

1385 ? ttl; -C"; OS; -**12 + ZS = -; OS; -B"; OS; " 
*11 + ZS = - ; QS; -ft-; OS; -*»18 + ZS = " ; QS ; -9"; QS 
; -M9+ZS="; 

1386 ? ttl; QS; "8"; QS; -*8" 

1398 ? ttl;-? -;QS;"H-;QS;-:Z=Z+ZS=-;QS 
; "7"; QS; -*7+ZS=-; QS; -6"; QS; —**6 + ZS = -; QS 

1391 * ? ttl; -**5 + ZS = - ; QS ; "4"; QS; 
1395 ? ttl;-*4+ZS=»;QS;-3";QS;"*3+ZS=-; 
OS; "2"; QS; "*2+ZS=-; QS; -1-; QS; - : Z=Z*256 
: ZZ = ZZ + Z : ZS = ZZS C3, 3>" 

1488 ? ttl;-? -;QS;-H-;QS;-:Z=ZS=-;Q$;» 
F-; QS; -*15+ZS=-; QS; -E"; QS ; -*14 + Z S = - ; QS 

1481* ? ttl; -»13 + ZS = -; QS; -C"; QS; 
1485 ? ttl; -*12+ZS=-; QS; "B"; QS; "*11+ZS= 
" ; QS; -ft-; QS; -*18+ZS=- ; QS ; -9" ; QS ; -*9+ZS 
=" ; QS ; -8" ; QS ; "*8 M 

1418 ? ttl;-? -; QS; -H-; QS; - : Z=Z+ZS=-; QS 
; -7"; OS; "*7+ZS=-; QS; -6"; QS ; "M6+Z$=" ; Q$ 
; -5"; QS; 

1411 ? ttl; -M5+ZS=-; QS; -4"; QS; 

1415 ? ttl; "*4 + Z$ = "; Q$; "3"; QS; "*3 + Z$ = "; 

QS; -2"; QS; »*2+ZS=" ; QS ; -1- ; QS ; - : Z=Z*16 : 

ZZ=ZZ+Z:ZS=ZZ$C4,4>" 

1428 ? ttl;-? -; QS; -S-; QS; - : Z=ZS=-; QS; - 
F-; OS; "»15+Z$="; Q$; "E"; QS; "«14+ZS="; QS 
; "D"; OS; 

1421 ? ttl; -**13 + ZS = -; QS; -C-; QS; 
1425 ? ttl; -*12 + ZS = -; QS; "B"; QS; -*11 + Z$ = 
"; QS; -ft"; QS; -*18+ZS=-; QS; -9-; QS; -*9+ZS 
="; QS; -8"; QS; -*8" 



QU 



EU 
ftK 



KR 
BI 
TQ 

BG 

FB 
LQ 

no 

ji 

OR 
KT 
CU 
NU 
UJ 
ftU 
ftT 
LZ 
CT 
YT 
ZE 

Bft 

01 
ZG 

RU 

DG 

CN 

IE 
GS 
RQ 

Cft 

NJ 

OT 

CG 
ET 
UY 
YH 

OL 
KE 
YU 
Eft 
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;QS;-8-;QS;-:Z=Z+ZS= 
="; OS; -6"; QS; -*6+ZS= 



■;QS 
';QS 



1438 ? ttl;-? -j 
; "7" ; QS ; -*7+ZS= 
;"5";QS; 

1431 ? ttl;-*5+ZS=-;QS;-4";QS; 

1435 ? ttl; -*4+ZS=-; QS; -3"; QS; -*3+ZS=-; 

QS; -2"; QS; -*2+ZS=-; QS; -1-; QS; - : ZZ=ZZ+Z 



1448 ? ttl;-? -;QSj 
OS;- = -;Q$;-;ZZ;« 
1458 ? ttl;-? -;Q$j 
to c ont i nue , " ; QS ; 



•ffiQHEX "; QS; -; ZZS; -; 
;QS;- DECIMftL" ; QS 
'fflDfflPress SPftCE BftR 
? ";QS; 



*D to Convert DECIMAL Nunber 
';QS;-ftny Other Key to Quit 



1455 ? tti;» 
S, "; QS; - : ? 
. "; OS 

1468 ? ttl;-? -; QS; -BBD-; QS; - : OPEN ttl, 4, 
8,";QS;-K:";QS;-:GET ttl,Z:CL05E ttl : IF 
Z=32 THEN ENTER DNS" 

1478 ? ttl j "IF Z=68 THEN DNS C4» =" ; QS ; -D 
EC";QS;-:ENTER DNS- 

1488 CLOSE ttl:? -HEX Comp 1 et ed . - : ? : RE 
TURN 

1588 TRAP 48888:? "Creating DRIUES":CL 
OSE ttl:OPEN ttl , 8 . 8 . "D : DRIUE5" 
1518 ? ttl ; "IF PEEKC1881) > 1 6 OR PEEK C18 
81J=8 THEN ? ";QS;-SSNOT COMPATIBLE wit 
h this DOS ."; QS; ": STOP " 

1528 ? ttl;-CL05E ttl - CLR : DIM ZS dlJ , Z c 
8) : ZS=-; QS; -NOT Enabled";QS 
1538 ? ttl;-FOR Z = l TO 8 * Z <Z» =1 ' NEXT Z: 
Z=PEEKC1882J" 
1548 ? ttl;"? -;QS;-13-;QS j 
HEN ZC81=4:Z=Z-128* 
1558 ? ttl;-? ";QS;« 
EN Zc7>=4:Z=Z-64" 
1568 ? ttl;"? ";QS; 
EN Zc6J=4:Z=Z-32" 

";QSj 



;QSj 
; QSj 



IF Z>=128 T 
' IF Z>=64 TH 
!IF Z>=32 TH 
IF Z>=16 TH 



IF Z>=8 THE 



1578 ? ttl;"? ";QS 
EN Zc5*=4:Z=Z-16" 
1588 ? ttl;"? ";QS 
N ZC41=4:Z=Z~8" 
1598 ? ttl;-? -;QS 
N Z€3»=4:Z=Z-4" 
1688 ? ttl;"? ";QS 
N Zc2J=4:Z=Z-2" 
1618 ? ttl;-? ";QS 
N Zcu=4" 
1628 ? ttl;-? ";QS 
8:? "; QS; "Drive " 
S;-;ZSCZCZJJ s NEXT 
1638 ? ttl;-? -;0S 
change this set up?";QS 
";QS;-K:";QS;-:GET ttl , Z : " ; 
1635 ? ttl;-CLOSE ttl: IF Z<>89 THEN STOP 



; "N"; QS j 
!"H";QS; 
i"i«";QSj 
:"ifi";QSj 



! QS i 
•;Zi 



' IF Z> = 

:IF Z>: 

:IF Z> 

tFOR Z 
; QS; 



4 THE 
2 THE 
1 THE 



= 1 
iS 



TO 
" ; Q 



"»• 
OS; 
Z" 

"fflUouid you like to 
OPEN ttl, 4, 8, 



1648 ? ttl;-? ";QS; "HPress Numbers of D 
rives to Enable . QS; " : FOR Z = l TO 8-Zc 
ZJ=8:NEXT Z" 

1658 ? ttl;-?-;QS;-ffiQ";QS;":FOR 1 = 1 TO 
4 : OPEN ttl,4, 8, "; 0$; "K: "; QS; " : GETttl , Z : C 
LOSE ttl:"; 

1655 ? ttl; "IF Z<57 AND Z>48 THEN ZcZ-4 
8>=l:? ";QS;"DRIUE " ; QS ; " ; Z -48 ; ZS C4I : N 
EXT I" 

1668 ? ttl;"Z = l:FOR 1 = 1 TO 8:ZclJ=Zcl3* 

Z:Z=Z*2:NEXT IiZ=8:F0R 1=1 TO 8:Z=Z+Zc 

Ii : NEXT I«IF Z>8"; 

1665 ? ttl;" THEN POKE 1882, Z" 

1678 ? ttl;"Z = 0SRc58484>" 

1688 CLOSE ttl:? "DRIUES Comp l et ed . " : ? 

i RETURN 

1788 TRAP 48888:? "Creating LOCK":CLOS 
E ttl: OPEN ttl,8,8,"D:L0CK" 
1718 ? ttl;"CLOSE ttl:CLR :DIM ZSC183:? 
";QS;"BUhich File to LOCK?";QS 

?: 7 2§ 7 "i» $ ii: ffl « Ex. D2 : DATA - EXE 

";QS;":lRpUT ttig,ZS:? "; QS; "Locking "j 
QS;";ZS:XIO 35 » ttl ^8#8#ZS- 

1738 CLOSE ttl:? -LOCK Comp 1 e ted .": ? :R 
ETORN 

1758 TRAP 48888:? "Creating UNLOCK":CL 

OSE ttl:OPEN ttl , 8 . 8 , "D : UNLOCK" 

1768 ? ttl;"CLOSE ttl : CLR : DIM Z$ C18J : ? 

";QS;-HUhich File to UNLOCK?";QS 

1778 ? ttl;-? ";QS;-BB Ex. D2 : DAT A • EXE 

■■; OS; -: INPUT ttl6,ZS:? - ; QS; "Unlocking 

";QS;-;ZS:XIO 36 . ttl , 8 , 8 . ZS- 

1788 CLOSE ttl:? -UNLOCK Comp l et ed . " : ? 

: RETURN 

1888 TRAP 48888:? -Creating RENAME" : CL 

OSE ttl: OPEN ttl, 8, 8, "D : RENAME" 

1818 ? ttl;-CL05E ttl: CLR : DIM ZS C18J : ? 

-; QS; -HUhich File to RENAME?" ; QS 

1828 ? ttl;-? ";QS;-ffl Ex. D2 : OLDNAME « 

NEUNAME"; QS; ": INPUT ttl6,Z$:XI0 32, ttl, 8 

,8,Z$" 

ANTIC SOFTWARE LIBRARY 



1830 CLOSE "RENAME Comp l eted . : ? UX 

: RETURN 

1988 TRAP 40888:? "Creating ERROR. 164" NJ 
:CLOSE ttl: OPEN ttl , 8 , 8 , "D : ERROR . 164" 
1918 ? ttl; "IF PEEKC4149K>44 AND PEEK c 
4149J0234 THEN ? ";Q$;"BINOT COMP ATIBL Pfl 
E with this DOS ."; Q$; ": STOP " 

1928 ? *tl;"CLOSE »l:CLR :? ";B$;"HPres TO 
s U to Disable ERROR 164. ";0$;":? ";Q$ 
;"This will allow Loading "; QX 
1938 ? *ti;"fiies that cause an ERRO 
R 164. ";Q$ 

1948 ? ttl;"? •■; Q$; "HOSBe aware that th YH 
e DATA will probably not be 188* inta 
ct.";0$ PD 
1958 ? ttl;"? ••; Q$; "ffiHffibMP r e s s any other 

Key to Enable Nornai ERROR 164 handl OL 
i ng . "; Q$ ; 

1968 ? ttl;":OPEN ttl , 4 , 8 , " ; QS ; "K « " ; Q$ ; " SC 
: GET »1,Z:CL05E ttl" 

1978 ? »1;"P0KE 4148 , 288 : POKE 4149,44: DM 

IF Z=88 THEN POKE 4148 , 234 : POKE 4149,2 

34" 

1988 CLOSE ttl:? "ERROR. 164 Conpieted." hv 
:? : RETURN 

2808 TRAP 48888:? "Creating OPENFILE" * ou 
CLOSE «l:OPEN ttl, 8, 8, "D : OPENFILE" 
2818 ? »1;"IF PEEKC188D >16 OR PEEK 1 18 

? ";flS;"HNOT COMPATIBLE wit ZT 
••; Q$; : STOP " 

CLOSE «l:CLR : Z=PEEK C180H : AL 
U$;";Z;";U$;" Buffers are s 
l 0$ 

ffia . . Qs ; ... z . . q $j .. 5i OT 



81»=8 THEN 
h this DOS 
2828 ? ttl; 
? ";QS;"H" 
et up by this DOS. 
2838 ? ttl;"? ";0$; 
nsie Density or ";QSj 



INT cZ'2i ; "; QS; 



2835 ? ttl; 
be opened 
2848 ? stl; 
change thi 

2845 ? ttl; 

THEN STOP 
2858 ? ttl; 
ouid you l 
2855 ? ttl; 
: GET ttl,Z: 
N STOP " 
2868 ? ttl; 



" Double Density Files nay 
at the sane tine.";QS 
"? "; Q$; "IWouid you like to 
S?" ; Q$ ; " : OPEN «1 , 4 , 0 , " ; Q$ ; "K 

" : GET ttl,Z:CLOSE ttl : IF Z<>89 

"? ";Q$;"SHow Many Buffers w 
ike DOS to set up?";Q$; 
" : OPEN ttl, 4, 0, "; Q$; "K: "; Q$; " 
CLOSE UUIF Z<49 OR Z>57 THE 

"POKE 1801, Z-48 : Z=U5R C58484> 



2878 CLOSE ttl : ? "OPENFILE Completed.": 
? : RETURN 

2188 TRAP 48888:? "Creating URITEDOS": 
CLOSE «l:OPEN ttl,8,0,"D:URITEDO5" 
2185 ? «1;"CL0SE ttl:CLR : DIM Z$C10j:Z$ 
="; Q$; "Dl : DOS . SYS"; Q$ 

2110 ? ttl;"? ";QS;»NHrite DOS. SYS to w 
hich drive?"; Q$ ; " : OPEN ttl , 4 , 8 , " ; 0$ ; "K : 
" ; Q $ ; 

2115'? «1;":GET ttl,Z:CLOSE ttl * IF Z<49 
OR Z>56 THEN STOP " 

2128 ? ttl;"? ";Q$;"ffiaPut Disk in Drive 



; Q$; 
; OS; 
2125 ? 



;Z-48;";QS;" and Press RETURN, 
ttl j 



Z$c2,2»=5TR$cZ-48> :OPEN ttl 
,4,0,";O$;"K:";QS;":GET ttl,Z:CL05E ttl" 
2138 ? ttl;"? "; Q$; "ftJOUriting DOS . SYS t 
o Drive " ; Q$ ; " ; Z$ c2 , 2> ; " ; 0$ ; " . ";0$; 
":OPEN ttl,8,0,ZS:CLO5E ttl" 
2148 CLOSE ttl:? "URITEDOS Comp l eted ." : 
? : RETURN 



NO MORE "OOPS, I HIT [CLEAR]" BLUES 
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LISTING 1 



Don't type the, 
TYPO II Codes! 



18 REM BUTTERFINGERS 

28 REM BY KEUIN C GEU AT05KY 

38 REM cc) 1985,1989 ANTIC PUBLISHING 

48 REM CLINES 18-258 MAY BE USED WITH 

OTHER BASIC LOADERS IN THIS ISSUE. 

58 REM CHANGE LINE 78 AS NECESSARY.) 

68 DIM FN$ C28> , TEMPS c20i , AR$ c93> : DPL=P 

EEKC18592) : POKE 18592,255 

78 FN$="D:FINGER5.EXE":REM THIS IS THE 

NAME OF THE DISK FILE TO BE CREATED 
88 ? "SfQisK or Sassette?"; : POKE 764,25 
5 

98 IF NOT CPEEKC764)=18 OR PEEKc764>= 
58^ THEN 98 

188 IF PEEKc764> =18 THEN FN$="C 
118 POKE 764,255:GRAPHICS 8:? " 
TIC'S GENERIC BASIC LOADER" 
128 ? ,"BY CHARLES JACKSON" 
138 POKE 18592, DPL : TRAP 288 
148 ? :? :? "Creating ";FN$:? " 
se stand by." 

158 RESTORE : READ LN : LM = LN : DIM fi$ (LN> : 

C = l 

160 AR$="" : READ AR$ 

170 FOR X = l TO LEN c AR$) STEP 3:P0KE 75 
2,255 

180 LM=LM-1 : POSITION 10,10:? "CCountdo 
wn . . . T-"; INT cLM'10» ; "i 

190 A$cC,C>=CHR$cUALcAR$cX,X+2>>> :C=C+ 
l:NEXT X:GOTO 160 

200 IF PEEKC195>=5 THEN ? :? :? "QTOO 
MANY DATA LINES!":? "CANNOT CREATE FIL 
E ! " : END 

210 IF C<LN+1 THEN ? :? "QTOO FEU DATA 

LINES!":? "CANNOT CREATE FILE ! " * END 
220 IF FNS="C:" THEN ? :? " Prepare ca 
ssette, press [RETURN]" 
230 OPEN tti,8,0,FN$ 
240 POKE 766,1:? ttl;A$; 
250 CLOSE ttl:GRAPHICS 0 



AN 



Plea 



POKE 766,0 

? "■fflffiGEHIlBOHraB 



LO 1000 DATA 96 

MAY 1989 



5L 
FJ 
DF 
JP 



1010 DATA 2552550000060830060760050062 

34104165012141026006165013141027006169 

025133012169006133013208003 

1020 DATA 0322552551201730088821418848 

86173889882141885006169053141008002169 

006141009002088096072173009 

1030 DATA 2102811182488162011822488122 

8124 6288811169118141252882141242882104 

184864184188884 886224882225 

1848 DATA 882888886 



LISTING 2 



8188 
8118 
8128 
8138 
8148 
8158 
8168 
8178 
8188 
8198 
8288 
8218 
8228 
8238 
8248 
8258 
8268 
8278 
8288 
8298 
8388 
8318 
8328 
8338 
8348 
8358 



; BUTTERFINGERS 

; BY KEUIN C GEUATOSKY 

;CCJ1989, ANTIC PUBLISHING INC 



; KB int. vector. 
;Current Key. 
;Prior Key. 
;Last Key. 
;Key codes. 



DOSINI = $8C 
UKEYBD = $8288 
KBCODE = SD209 
CHI = $82F2 
CH = S82FC 
SH-CLR = 118 
CT-CLR - 182 
CT-SH-CLR = 246 

*= $0600 



;This prosran provides two entry 
;points so that it can be 
;started fron DOS or BASIC. 



START 

JMP INIT 

NOP 

PLA 



;For DOS entry. 
;For BASIC entry 
;w X = U5RC1540> 



;MaKes the prosran RESET-proof 



continued on next page 
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8366 
8378 
8388 
8398 
8488 
8418 
8428 
8438 
8448 
8458 
8468 
8478 
8488 
8498 
8588 
8518 
8528 
8538 
8548 
8558 
8568 
8578 
8588 
8598 
8688 
8616 
6626 
8636 
6648 
6658 
6668 
8678 
6686 



INIT 



LDA 
STA 
LDA 
ST A 
LDA 
ST A 
LDA 
STA 
DNE 

NEW-INI 
JSR 



DOSINI ;Get current DOS 
NEW-INI+i ;init address 
D05INI+1 ;and save in 
NEW-INI+2 ;new vector. 
» <NEM-INI ;Put addr of 
DOSINI ;new vector in 
n >NEM-INI ;oid vector. 
DOSINI+1 

SET— KBUEC ; cJUMP* 



SFFFF 



;New DOS init. 



; Jump here on initialization or 
;RESET to setup a new Keyboard 
;trap vector. 

SET— KBUEC 

SEI ;Kill IRQ'S. 

LDA UKEYBD ; Save systen KB 
STA SYSKBU ; interrupt addr 
LDA UKEYBD-*- 1 ;repiace w/the 
STA 5 YSKBU+1 ;addr to our 
LDA » < KEY— TRAP jKey-trap 
STA UKEYBD ;routine. 
LDA n > KEY— TRAP 
STA UKEYBD+1 

CLI .Restore IRQ'S. 

RTS 

ilnterrupt routine to replace 
; 5HFT+CLE AR and CTRL+CLEAR 



6698 
8768 
8718 
8726 
8738 
6746 
6758 
8766 
6778 
8788 
8796 
6868 
8816 
8828 
8838 
8846 
8858 
6866 
6878 
6888 
8896 
8968 
8918 
8928 
8936 
8948 
8958 
8966 
6978 
6988 
8996 
1886 



with 5HFT+CTRL+CLEAR. 



KEY-TRAP 
PHA 

LDA KBCODE 



;Get current key 



CMP »SH-CLR ;Filter out the 



BEG GOT-YA 

CMP **CT_CLR 
BEQ GOT-YA 



standard clear 
screen Keys. 



CMP «CT-SH-CLR 
BNE GO-KB-INT 



CLR-SCR ; 

LDA t*SH_CLR 

STA CH 

5TA CHI 
GOT-YA 

PLA 

PLA 

RTI 

GO-KB-INT 
PLA 

JMP CSYSKBU* 

SYSKBU 

.D5 2 J 
*= S62E8 
•WORD START 
.END 



Check for 
our special 
key 
c oMb i nat i on 



: Put c 1 r -screen 
code for Editor 

Return fron the 
: interrupt . 



Pass all other 
;keys on to OS 



ikeybd handler. 
iDOS RUN address 



SHOGUN DEATH MAZE OF OLD JAPAN 



SECRET OF KYOBU DI 



Article on page 12 



LISTING 1 



Don't type the 
TYPO II Codes! 



EU 
AJ 
PF 
JF 
QL 



SG 
PY 

PC 

HQ 
DU 

UR 

HO 

CJ 
GA 
LR 

F5 

KN 

EO 
SH 
EN 

LD 
GO 

un 
wx 

CM 
GN 
MA 
JU 
RI 

KG 
GE 
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2 REM THE SECRET OF KYOBO DI 
4 REM BY BERNARD TAYLOR 

6 REM (CJ1989, ANTIC PUBLISHING INC 
18 G05UB 1000'GOSUB 4500'GOSUB 6028 
12 POKE S59,R:P05ITI0N R,R:? **6;A$<5,4 
683 : POSITION R,23:? «6 ; "8B" : POKE 559,34 
:POKE 19.R:TT=3:X=7: Y=2l:XB=X : YB=Y 
14 GOSUB 514 

28 A=5TICKC81 : IF NOT CSTRIG C0> +TW> TH 
EN GOSUB 88 

21 IF TI4 OR LR THEN ARU= ARU + 5 J IF ARM>T 
M THEN GOSUB 388 

22 IF PEEKC53279>=6 THEN 738 

25 NX=cA = 7*-cA = ll»:NY=cA = 13*- cA = 14> * IF 

NOT cNX+NYJ THEN 45 
28 FOR DE=12 TO R STEP -1.5:S0UND R,20 
0 , 4 , DE : NEXT DE : X = X + NX : Y = Y + NY 
35 U=CX<R OR X>19*+2*cY<R OR Y>22*:0N 
U GOSUB 600,605:POKE 559,34 
42 LOCATE X,Y,Z:IF Z<>32 THEN GOSUB 98 

45 F1=F1+S:IF F1>F2 THEN F1=F3 

46 U=USR cSL, ST+112, SL1+F1*8> :U=U5RcSL, 
ST+24,5L4+F1*8> 

47 COLOR 32:PL0T XB,YB:COLOR TC:PLOT X 
. Y I XB=X : YB=Y 

68 T=TT-PEEKC19> : IF T>-5 THEN POSITION 

S,23:? »6;T;" 
78 IF T<5 AND OIL=R THEN GOSUB 118 
75 GOTO 28 ^ . , 

88 POSITION 5,23:? tt6;"8 : TT = R s LR = R ' I 
F RBY THEN RETURN 
82 POKE 718,R:RETURN 

98 U= cZ = 44>+2*cZ=4 5:*+3*cZ = 47)+4*cZ = 178 

OR Z = 42* + 5*cZ = 171> +6* cZ=123* 
92 ON U GOTO 128,138,148,158,168,176 
94 U=cZ=98 OR Z=122 OR Z=258* +2* cZ=l 0 
R Z=33 OR Z=129>+3*cZ=163*+4*cZ=221» 
96 ON U GOTO 188,218,288,285 
118 F1=R:F2=2:F3=R:0IL=S 
112 IF RBY THEN RETURN 

114 POKE 718,R:L=1242 

115 FOR J = S TO 3: AScL,L + 7»= ,, a^a^D^a ,, sL 
=L+40:NEXT J : 1=1248 : GOTO 6815 

128 IF A=14 THEN Y= Y+NY : GOTO 142 

138 IF A = 13 AND Z=45 THEN Y = Y + N Y : GOTO 



BX 
MN 



WW 

ZY 
GJ 



RD 

KB 

NU 
UR 

BZ 

BX 



HO 
ZN 
KU 



LJ 



WL 
GO 

LB 



GR 

KX 

FU 
KB 



142 

148 FOR DE=16 TO R STEP -2:50UND R,48+ 
DE, 12, DE :NEXT DE : X=X-NX : Y= Y -NY t RETURN 
142 FOR J=248 TO 188 STEP ~68:S0UND R, 
J,18,12:F0R DE = S TO 28:NEXT DE s NEXT J: 
SOUND R , R , R , R : RETURN 
158 X=X+NX:IF SCN=18 THEN 142 

151 IF NOT TM THEN TCC= TC : TC=142 

152 FOR DE=15 TO R STEP -8.5:50UND R,6 
8 -DE, 18, DE : NEXT DE : TW=TW+5 : Yl=Y*8+32 i R 
ETURN 

168 FOR DE=15 TO R STEP -8.25:P0KE 712 
, DE : NEXT DE 

161 COLOR 32:PL0T XB , YB : T5=15 : FR=R : TX= 
R 

162 FOR J=R TO 158 STEP 2 

164 SOUND R, J,4,T5-J'18 s SOUND 5,180+J, 
6, TS- J'10 

166 IF J>60 THEN NEXT J : SUUND R,R,R,R: 
SOUND S,R,R,R : COLOR 32:PL0T X,Y:GOIO 4 
08 

168 IF J=TX THEN U=USR «SL , ST+64 , 5L2+FR 
*8>:CQL0R 136 : PLOT X , Y : F R = FR + 5 : T X = TX + 1 
8 

169 NEXT J 

178 IF TW THEN 174 

171 Fl=3 : F2=5 : F3=3 : TC=14 : COLOR 32:PL0T 
X, Y : TT = INT cRND c8>*5» +15 ■ POKE 19, R : POK 

E 718,56:0IL=R:REST0RE 176 

172 FOR J=S TO 8 '• READ SD,TN:SOUND S,SD 
,18,12:F0R DE = R TO TN : NE XT DE i SOUND S, 
R , R , R : NEXT J 

174 TRS=5:G0T0 412 

176 DATA 168, 18, 8, 8, 188, 18, 8,0, 108, 6,1 
28, 15, 144, 15, 162, 16 

188 KY=cZ = 122 AND YLU* +33* cZ=96 AND GR 
Y*+129*cZ=258 AND UHT>:IF NOT KY THEN 
140 

182 TR=INT cRND c8>*6> : IF BOXcTR>=R THEN 
182 

184 FOR J=4 TO 11 : LOCATE J,23,Z1:IF Zl 

=KY THEN 188 

186 NEXT J:GOTO 148 

188 COLOR Z+2:PL0T X , Y : L = c Y*28* + cX + S> + 
Hc5CN>-S:A$cL,L + Si=CHR$cZ + 2> :IF BOX cTR 

ANTIC SOFTWARE LIBRARY 



23 : 
••:M 



,48 + 



? «6;KEY$cKY,KYi 



1=32 THEN BOX cTRJ =R : GOTO 556 

199 COLOR BOX <TR> : PLOT J , 23 : TRl=BOX cTR 

1 :B0XCTR>=R 

191 5PL=SPL+5:IF SPL=4 THEN A$c855,857 
J =••□ 

192 IF TR1=4 THEN 5HLD=5 : MSGS c36> = MSG2 
S (89,183) : GOTO 588 

194 IF TR1=134 THEN 0=U5R CSL , 5T + 96 , 5L3 

1 :PRL = S:MSG$C36>=MSG2$CS,28> : GOTO 588 
196 IF TR1=5 THEN U=05R C5L , 5T+104 , SL3 + 
81 :HLMT=1 :M5GS c36i=MSG2S C49, 751 : GOTO 5 
88 

198 IF TR1=39 THEN MSGS c36i =MSG2S c21 , 4 
8) :ASc3721, 37211=" ":GOTO 588 
288 FOR J=58 TO R STEP -2:F0R DE=15 TO 
R STEP -2:S0UND R , D E + J , 1 0 , D E : P 0 KE 712 
,68-DE:NEXT DE : NEXT J.-POKE 712, R 

281 POKE 718,56 

282 COLOR 32:PL0T X,Y:COLOR 163 » PLOT 1 
2,23 : SPL = 5 : CG = 32 : M5G$ c36l=M5G2S C279, 32 
21 :ASC1677, 1677J=" ,i :RBY = S 

284 U=U5RcSL, ST+64, SL2+561 : GOTO 588 

285 COLOR 32:PL0T X,Y 

286 FOR J=4 TO ll:LOCATE J,23,Z1 

287 IF Zl=32 THEN COLOR 221 : PLOT J, 
AS ci 6 74, 16781=" □" : AS C855 , 8551 =" 
SGSc36i=MSG2Sc76,88i :GOTO 588 

288 NEXT J 

218 COLOR 32:PL0T X,Y:TR5=5 
212 FOR DE=15 TO R STEP -5:S0UND R, 
DE , 16 , DE : NEXT DE 

214 IF Z=33 THEN GRY=GRY+5 : KY=S : IF GRY 
=2 THEN KY=2 

215 IF Z=S THEN YLU= YLU + 5 : KY=4 : IF YLU= 

2 THEN KY=5 

217 IF Z=129 THEN UHT=UHT+S : KY=7 : IF UH 
T=2 THEN KY=8 
228 POSITION KY+3,23: 
GOTO 412 

388 RU=INTCRNDC8>*4> : RX=RU*7+5 : PO$=UPN 
ScRX,RX+6i :SHLD1=R 

385 PMB = U5R c ADR c-'hhhamB j8HMHNHa[iJhhBoLlB 

> hhHJOJu . B'uaewfiran . □□□nasiaraaffiamaffiQEiaaa 
ffifiitsaanGnasffiemciaaiiaaw") , 16 , 3 , 51 

318 U = 05RCADRC* h □BiQGQQDHBCSQdIQQOBSlflESSGDQS 
RCraHCraHSR"»J :ET = ZTCRM1 - POKE 77, R 
315 IF SCN = 18 OR FP THEN Yl = Y**8 + 32 : TN = 
4:FP=R:C0L0R 142 : PLOT X,Y 

328 KOL = INT CRND c8i*14i +2 I K0L=K0L*16 - 6 : 

IF SHLD THEN SHLD1=INT cRND C8i *2i 

338 U=U5RcADRcpsi ,PMB,6, ADRcP8Si ,X1,S, 

5,Y1,7»:P0KE 784 , KOL : ARM= R 

332 IF 5CN=18 THEN 348 

336 TW=TW-S:IF TM=R THEN TC=TCC:TM=4 
338 IF TU> R THEN TM=2 

348 FOR Xl=28 TO 222 STEP ET : POKE 5324 
8,Xl:S0UND R, XI, 18, 6 

341 IF PEEKC53252J >7 THEN 368 

342 POKE T J , R : NEXT XI i POKE 784,R:S0UND 
R , R , R , R 

358 If'kILL THEN KILL=R:GOTO 488 
355 RETURN 

368 IF SHLD1 THEN NEXT Xl:50UND R,R,R, 
R:POKE T J , R : RETURN 

361 POKE 623,4 

362 FOR DE=15 TO R STEP ~3:S0UND R,X1- 
DE , 18 , DE : NEXT DE » POKE TJ,R:POKE 784, R: 
KILL=S:COLOR 137'PLOT X,Y:NEXT XI 

488 COLOR 137:PL0T G , 23 : MSG3S CG - 6 , G - 6 1 
= »B" 

418 G=G-S:IF G=12 THEN POP :DE=4:SPL=8 
:GOTO 738 

412 L= cY*28i +cX+Si+Hc5CNi-S:AScL,Li=" 

415 IF TRS THEN X=X -NX : Y=Y-NY 
428 TR5 = R : RETURN 

588 FOR J=Y-4 TO Y-2:C0L0R 32:PL0T R,J 
s DRAUTO 19,J:NEXT J : B=S : RESTORE 568 
584 LTH = LEN cMSGSi +S : MSGS c|_THl =M5G3S 
586 FOR J=5 TO LTH : READ MUS 

588 POSITION R,Y-3:? «6 ; MSGS c J , J + 191 

589 IF MUS=R THEN SOUND R , R , R , R : SOUND 
S,R,R,R:GOTO 512 

518 SOUND R, MUS, 18, 14 : SOUND S,MU5+2,18 
,12:B=B+S:IF B=82 THEN B=S : RESTORE 568 

512 FOR DE=S TO 28:NEXT DE : NEXT J 

514 FOR J=S TO 10-5OUND R , C c J i , 18 , 18 : S 

OUND S,C€ji^2, 18,18 

516 FOR DE = S TO 25:NEXT DE : NE XT J 
518 FOR DE=S TO 46'NEXT DE : SOUND R,R,R 
,R:SOUND 5 , R , R , R : SOUND 2,R,R,R 
528 IF EOG THEN 748 

521 IF NOT BGN THEN BGN=S ' RETURN 

522 POSITION R,R:? «6 ; AS cH cSCNi , H CSCN + 



KU 
EQ 

BU 
EA 



PU 



JD 



PX 

AE 
HR 
RT 

PE 
EY 

YL 
PA 
RO 
ZO 
UC 



AO 
AD 

CI 

UH 
SY 
GL 

ZO 
JL 

MU 

GH 
AU 
LU 



zx 



EC 

HU 
CA 

DD 

5E 



UK 

uo 
ou 

HD 

RR 
DY 

BS 



PG 



OM 

ZO 



ST 
UU 
XC 



QM 



TJ 



MAY 1989 



511 : X = X -NX : Y = Y -NY 

524 POKE 19,R:TT=T:RETURN 

558 COLOR 32-PLOT J,23'.F0R DE=15 TO R 

STEP -8.2:S0UND 8 , 248 , 12 , DE t NEXT DE 

552 X=X-NX:Y=Y-NY:RETURN 

568 DATA 152,152,136,136,114,114,136,1 

21, 136, 152, 182, 284, 238,238, 238,284, 182 

, 182, 152, 136, 136, 284, 182, 182, 284 

565 DATA 284,182,284,238,238,284,182,1 

52,136,284,284, 136, 152,182,284,238,238 

,8,8 

578 DATA 238,284,284,182,182,152,136,1 

36,284, 136, 152, 182,284,284,238,284,284 

, 182,284, 136, 136, 152, 182, 182,284 

575 DATA 238,238,284,182,152,136,121,1 

36, 114, 114, 136, 136, 152,152 

688 X=28*CX<R>+CX>19>-S:G0T0 618 

685 Y=23*cY<Ri+cY> 221-5 

618 POKE 559,R:FLIP=2«cX=19>-2*CX=R>+6 
*CY=22> -6*CY=R* : SCN=SCN+FLIP 
612 IF SCN=28 THEN 788 

614 POSITION R , R : ? »6 ; AS (H CSCNi , H C5CN + 

Sn :XB=X: YB=Y 

628 IF SCN=18 THEN 635 

625 IF TU THEN TU=R«GOTO 648 

638 IF TU THEN FP=S 

632 RETURN 

635 U=USRcSL,ST+96,5L3+CGi :U=U5Rc5L,ST 
+184,SL3+CGl :U=USRc5L,ST+80,SL3+CGi : TU 
= 1 

636 IF T>S THEN LR=S:TM=35 

637 RETURN 

648 IF T<S AND NOT RBY THEN POKE 718, 
R ' A RU= R 

642 U=USRc5L,ST+88,SL3+16i :LR=R:TM=4 
658 IF PRL THEN U=U5R CSL , ST + 96 , 5L31 
655 IF HLMT THEN U=U5R <5L , ST +164 , 5L3+8 
i 

668 RETURN 

788 POSITION R , R : ? «6 ; "H" : Y=18 : EOG=S x P 

OKE 718,282:P0KE 788,136:P0KE 789,56 

782 COLOR 15:PL0T R , R : DRAUTO 19,R:DRAU 

TO 19,22:DRAUT0 R,22:DRAUT0 R,S 

784 DRAUTO 18,S:DRAUT0 18,21:DRAUT0 S, 

21:DRAUT0 S,S:POKE 559,34 

718 IF 5PL<5 THEN MSGS c36i =MSG2S C118 , 2 

481 : MSG3S C8, 143 ="BBBBrBB" : GOTO 588 

712 MSGSC361=MSG2SC118,1671 :MSGSc86i=M 

SG2S c249,438i : U=U5R CSL , 5T+64 , 5L2+56> :G 

OTO 588 

738 FOR JJ=5 TO 7:F0R J=-15 TO 15 STEP 
DE:SOUND R , 162 , 18 , 15 - AB5 c Ji : SOUND 5,2 
43, 18, 15-ABS cji 

735 POKE 788, 15-ABS cj> :NEXT J:DE=DE-8. 
5^NEXT JJ 

736 FOR DE=S TO 258:NEXT DE 

738 POSITION R , R : ? «6 ; "H" : POKE 788,288 

:POKE 716,56 

748 IF 5PL=5 THEN 886 

741 POSITION 6,3:? *6;"you have":POSIT 
ION 2,5:? tt6;"faiied to resc ue" : P05ITI 
ON 2,7:? i*6; "the [10130 0GMM30" 

742 COLOR 137:PL0T 7,18:DRAUT0 13,18 
758 POSITION 3,13:? »6;"PRES5 BD0BQ TO 
'^POSITION 5,15:? »6;"PLAY AGAIN" 

751 FOR DE=1 TO 388:NEXT DE 

752 IF PEEKc53279i=6 THEN POKE 559, R:? 
t*6; "H" : G05UB 5868:G0SUB 6028 : GOTO 12 

754 GOTO 752 

888 POSITION R , R : ? **6 ; "K" : L = 5 : T = - 6 . 35 : 
Y=3:P0KE 789,14 

865 FOR PP = S TO 6 : KOL = INT cRND c0> *»14) +2 
: K0L = K0L*16-2 t FR = R I TX = 15 : K=16 : U = U5R CSL 
, ST+64, 5L2+641 

818 FOR J=38 TO 15 STEP ~S:COLOR 8:PL0 
T K,J-8:S0UND 8 , J+ J*2 , 4 , J - 15 : COLOR 32: 
PLOT K,J-8 

815 K=K+T:SOUND R , R , R , J - 15 : NE X T J:T=T+ 
8 . 12 

828 U=U5RcSL, ST+64, SL2i POSITION L+2,Y 
:? »6; "BR": POSITION L + S,Y + S:? «6 ; "BBFJB 
•^POSITION L+2,Y+2:? »6 ; "EE" 
825 FOR U=5 TO 65 STEP INT CRND c0i + 2i +2 

.5 

836 SOUND R,U,4, C68+RND c6i +58i ' U : SOUND 

S,U+120,8, C86«RND c6i +581 'U 
835 IF U>TX THEN U=U5R cSL , ST+64 , 5L2+FR 
*8i : FR=FR+S : TX=TX+18 : K0L=K0L-2 : POKE 71 
1, KOL 

848 NEXT U:? »6 ; "H" : SOUND R,R,R,R:SOUN 
D S, R, R, R : POSITION 4,4:? »6 ; DS cS , Li : L= 
L + 2 

845 FOR DE=5 TO 120:NEXT DE : NEXT PP 

continued on next page 
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IT 
GG 



ID 
FM 



ZC 
RH 
UX 
NJ 

UH 

HZ 
HT 
Ift 

QI 

MD 

DT 
AJ 

ru 

ZQ 
AC 

BU 
LQ 
MI 

EX 

OL 

FM 

UK 

DU 

GT 

IJ 

OP 
AU 
LU 
KM 

KB 

UJ 

KX 

SJ 

EF 
UD 



HR 
AH 
QE 



OZ 
CJ 
GT 

48 



850 FOR DE=15 TO R STEP -0.1:POKE 709, RH 
DE : NEXT DE : GOTO 750 

1000 R = 0 : 5=1 ' GRAPHICS R:POKE 559,R:P0K 

E 710,R:POKE 752 , 5 ' DL=PEEKc560) +256*PE ER 

EKC56U : COLOR 32 : PLOT 2, R 

1002 POKE DL+6,5:P0KE DL+15,5 VG 
1005 FOR J=8 TO 13:P0KE DL+J,6:NEXT J: MM 
POKE 708, 104 : POKE 709,200:POKE 711,104 
: POSITION 5,3:? «6 ; "THE SEHHHn" 

1010 POSITION 9,4:? »6; "OF" : POSITION 6 EZ 
,5:? »6;"Ryobu d i " 

1020 POSITION 11,6:? »6;"By Bernard T 
ayior" LS 
1025 COLOR 115:PL0T 2,S:DRAUT0 37,S:PL 
OT 6,7:DRAUT0 33,7:P0KE 559,34 

1100 DIM A$C4140> ,B$c460> ,KEY*c8) , RBYS OE 
C48J ,nSG*c300> ,M5G2$c470i ,n5G3$c22> ,ZT 
C4> , BOX C5> , B0X1C5> , CC10J , Dc8> , Hc22> 

1105 DIN CHG$c40> ,D$C11> , UPNS c28> ,TOR$ RA 
C25J , T0R2S C48I , XPL* c72» , P0S C7> , P$ c92> : 

MPN$ = "0BB7f[GaaOL1fSfflffllia^EE6HFl^afflffl2ffl2ffl(fi" 

1106 Din C5ET$C171> OK 

1107 KEY$=" ! ! mm DB":DS="S h o g u n" 

1110 n=S:N=10l:O=20l:P=30l:Q=401:TJ=53 SJ 
278 

1150 CSET$ ci, 85> ="«» R-Rx.BBHffll]»fflBL!Ji8fflaiB „, 
BUZf Zf <fflfflffiOBaOT[Effll2BS]> : : : 6ffiSafflD0ffl™fflafflfflffl UL 

ssfflfflfflisaffltEaBB i h 8Bfflaaaaaafflaffl < u •• 

1160 C5ET$c86,17l3="jUj< BBISBGCDGBBOnBOBU TP 

DDOBfflailffllBfflHHfflfflOHlBBnCOBSlBHH < f f f f < H : 091BGQ 1 L 

CEa? ;B<BHlz4ffi< < ? A«AHffla?=BB> Uk>ffia" 

1200 ST=CPEEKC7421-2>*256:CH=S:U=8 

1210 X5R=57352 : XD5=ST+8 : XCNT=584 : GOSUB IC 

31000 : RESTORE 4100 
1212 PCSET=ADRcCSET$a : FOR X=l TO LENcC 
SET** STEP 9 ET 
1215 0FFSET=ASCCC5ET$CX,X>) 

1220 XSR= CPCSET+Xi : XDS=0FF5ET*8+5T : XCN 

T = 8 IB 

1221 GOSUB 31000 

1222 NEXT X 

1223 FOR J=2 TO 19 : READ S H : H c J > = 5 H : NE X SO 
T J 

1224 FOR J=R TO 3 i READ SH : ZT c Ji =5H : NEX 

T J CU 

1225 FOR J = R TO 5 : READ SH : BOX 1 c J> =SH : N 
EXT J 

1226 TOR$ = "hha[ihn[ahnmhafflBBnmr[a[i]saHnas" : xx 

5L=ADRCT0R*> 

1227 TOR2$ = ,, BBBBfflSffifflBBBBffl$fflfflBBBBai$fflfflct 
hSfflSfflfflt csfflfflSfflfflffi . tHfflSfflffl" : SL1 = ADR CT0R2$> PR 

1228 C H G $ = " ffiCBDBBBBBBBBDBCaiBBaaaaaaaBfflBO 
DOBOaiBUBHODHBaj" ' SL3 = ADR CCHG$> DK 

1229 ps=**h hamhaaasomomh hEharih arah hum-Jh h 
□HiahhDiBBHnffiHeHianfflnuHisaDanrannHiDtiinfflBfflnHifj 

[flDh hamh hnsaacanHsmcnnmBHBffi" g c 

1232 XPL$ = "BB$S<SBBBffi&Z4R9]B □, U5 : BBS LB 
^SFUHLffiBOSHKBe [PLB^SaiffiLBUinBttl B8BBB[B(1BBBB 
BBSSBBB" : SL2= ADR CXPL$> KN 
1236 RBYS = ,, BBBB8T8BBBB (D8LI 8*BT CH8UI8GBBB 
B8T89BBB CD8X8SBT CH8118B" I SL4 = ADR CRBYS* 
1238 FOR J=S TO 10 : READ SH « C c J> =5H « NEX NP 
T J 

1240 nSG$=" YOU HAU 

E FOUND " GL 

1242 ttSG2$ = "mmn^mnmmH>'.BH>'.rinrasBffl>:qMiiJ'.Md 

fwiaKvriwaKJcxopuqifiKqniXbjiaiKXNiihi 
qxjcxqwpqnxdKidwbiKwpSllx" KS 
1244 M5G2* c89> = "Dx.F JHH JKxUMLel Ax.DKx.gHU 
Qn/.G J a x. one x. U g F Ug Q x.nL A L KB x.UIDFgx.JC xtDBBH 

[fl5<rn[H3< >i>c>c^>c>c>c s- cn 

1246 MSG2S ci58>="nex.IDPBnUx.GGFDPUGX.s jp 
x. I D F N x. Q M g *x. J Kg x. Q M L KB x. QMDQx. FJPIAx. AgCgDQx. 
MLHxxy.^.y./.y.DKfl/.QIleK/.MGy.NLIIU/.sJP" OF 
1248 MSG2S C2491 = "PKQLI^.Mg> / . KJQLFGU^QMDQ 
XNjpy.MDSoy.qniXdiiBviilkbBwpgimaffly.jcy.q 

nm* rannms x. BiaBBism x. x. x. • • ex 
1250 nsG2$ c326i ="r.y.r.Y.r.r.r.wmmaxwmr-G jru* 

Q R L F g x. D K A x. QnG Kx. x. x x x x x x F J H H L Q U x. MD UD x. N L U 
Lxxxxxxxx** UA 
1252 M5G2SC394J ="II jp^MdSi^upf fiuucPi itT 

x ii m v f p m a x. q m m * amsn x Hmraaiiin > • 

1254 u=usR€ADRc«hha[iha[aheiGDhai5]hhamBBS[iim na 
□niaEmntamHmna^^^ , adr cn 

SG2$> , LENCM5G2$3 , 5» : RETURN 

2999 END NF 
3020 RETURN 

4100 DATA 1,460,461,920,921,1380,1381, 

1840, 1841, 2300,2301, 2760,2761, 3220, 322 AX 

1, 3680, 3681,4140 

4105 DATA 3.5,3.5,4,4.5 

4110 DATA 4,5,39,134,32,32 AL 
4120 DATA 152,136,204,204,136,152,182, 
204,230,230 



4500 FOR JJ=5 TO 5:F0R J=-15 TO 15 : SOU 
ND R,200,10,15-ABSCJJ : SOUND 5, 243, 10,1 
5-ABS cja 

4502 POKE 711,15-ABSCJ> :NEXT J:NEXT JJ 
:POKE 711,104 

4503 FOR DE = 1 TO 80:NEXT DE 

4505 GRAPHICS 17:P0KE 559,0:POKE 756, S 
Tx256 

5000 A$cn»= M x^ x / / / / / ///-/// 

s// // / □ ✓ ✓ xnx-x ✓ /,/// 

~/,/s// / ///,s/ □ / / □ x □ 

5005 A$cNJ="xx / ✓✓✓£#] C//,/// / x 
///-/// / /s, ////-/ / / / /// / 

/ / / / / /** 

s / / / , / 
/ / / / 
, / / / /•• 
✓ ///-/// 
/ / , / / / 



□ □ x 
5010 A$cO>: 



5015 A$CP>=» 
x x Q ✓ Qx / 

/ / - sm x / / / / 

5020 AS CQ* ■=."//// 
□ ✓ ✓ ✓ 



Q/ ///-///// ///■ 
t / D x / /,///// 

f / /////, //,S 4 
/////// 

/ / S S 9 S 4 



□x x n»x 

//-///SS / 4* / 
SS/////S//SSS////** 



5100 BScMJ="// // 
□ x ✓ □ ✓ ✓ □ 
//-/s/ □ /// □ ✓ 

5105 B$ CN* ="xx , ✓ ✓ /[]/ 
/ s / / / / s - s / 
✓ □ / / / /-// ////// 

5110 BS r cO>=" x □ □ ✓ s / 
/ / / s , s / / ffixx ✓ / 
///-s,///// / ✓ ✓ ✓ 

5115 B^CPlr:'^ S// / 

x D i/,//////// ✓ 

x ✓ n x/ 

5120 B* CQ> =••/✓✓, ✓ 



✓ □ x 
€4613 =B5 
5200 B$(MJ: 



✓ / // Qx/ 

4*/////-/ / / / 4* 

/ / / - / / / •• 

✓ / n ✓ / / 

/ s / / / / - / / 

/ , / / / 
/ / ✓ 

/ , 4* / / / / 

/ s Q ✓ - 

/ / / / s / ✓ 
✓Qx // Qx 
✓ /// / 

** / , / x ✓ / ✓ ✓ Q 



A$ 



/ / / / / s / 

/-/ / s nx»» 
/,/-////-/ / / 

S 4* 4* ss/s/s/,/ 

S / / / ///" 

□ / / / s 
Zfflx ///// / / // / 

/,//// 4* / / / / /*• 

□ ✓ ✓ //,//// XQ/^Q/Q 

/ / / / / ✓✓✓nxn 



/ , / / / / / / 

✓ ✓ ////// 
5205 B«CNJ="x Qx □ / 

/ / / 4* □ // S S 

-//*,/-/ / / / □ 

5210 B$cOJ="x-xx / / - 
/ ✓ ////// 

// x ✓ ✓ / ✓ 

5215 BSCP)=»/ 

✓nxx / □ x □ 
/q/q// // x-^nn ✓ //✓✓•• 

5220 B$ CQ> ="xnxD./n/nx x ✓ ///// 

□ //////////// / ///////••% H $ 

C921> =B$ 

5300 B$cn>="^x / / / // s s //// 

///-/ / Dffix ✓ , ✓ / - 4* 4* ✓ ✓ ✓ Q 

/ /////-/ fflx xQx /,/ 

5305 B$cNJ=" / / / / / /\}/ / - / - sQs 

□ / / / / / /// / 4* / - / n ' /✓/ 

□ /✓ / / 4* / 4* gg/ //// / / / 
5310 B$cO>= ,, x < /y/ n □ x ✓ 

//////// S////S/-//// / // □ 



, ✓✓x 



□ Z ////// / / / // /12 
5315 B$cpJ='* s//-s//s/ 
' x ft ✓/ , 

□ //-//// □ ✓ s///// 

5320 B$ CQI 

/ D' x ✓ ✓ ✓ ✓ 
C1381J=B$ 
5400 B$cm="x ✓ ✓ 
/ / / x □ ✓ ✓ 

/ / / 4* / / / □ 

5405 B$CN>=' 

xx ✓ j 

x x , ✓ 
5410 BSC01="/ 
/ / / 

/ / / □ x z x . 
5415 B$cP)=»x/y 



/ 

4* 
/ 

X 

n /xxxx 

x x":fl$ 



✓ ✓ ✓ ✓ ✓ ✓ ✓ 

x □ aex 
□ / - / / 

/ / / / /-//// / / 
/*/////,/ / x/// // 

/// ///// s /-/// 



/ / / / xQx , X 

/////// / S / 4 



□ 



□ 



□ x 

xx ✓ , 
□ x x 
Qx 



//// 



s / / s / / 

□ 

XS ////// 4*///// / / , / 4* s □ x 

✓ □ ///,////-/-// Q//-/ 

5420 B ! 5cQl= ,, //////// s, /-/-// 

//-// / 4*/ //// // s / // 

C184H =B$ 

5500 B*cnJ= ,f x ✓ / / / 
x ✓Qxx //// n x/ ✓ 

x/ x,x /////// / / / 
5505 B*cNJ="x /////,// 
////// / / / 

x / / / / / /// 
5510 B$(OJ='v xft ✓ ✓ 
/ / / / /,///// ///s 

x ✓ Qx X ✓ xQ/ X ✓ ✓ 
5515 B$cpj=-x ✓ 



zx 



: AS 

✓ ✓ ✓ 4* / 4* / / 

/ n xx 

/ / s □ 
//-///// □ □ 

✓ □ ✓ X ✓ / 4* / S /^k 

/,/-// / - / , / 
XQ x xxx # xffiQ 
x x Qx / 
////// 

✓ 4* / / / / / / 
/ / / / 4* / 



□ 



/////// 



/ / / - 4* / 4* / 4* 
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5528 BScQj=" 

✓ IB ' / - / , ' 
c2381>=BS 
5608 BScM>=" 
/ SI' □ 

✓ ✓ / , / 
5605 BScN)=" 

□ / ✓ 

/ / / / / / 

5610 BScO*=" 

• ✓ ✓ ✓ - ✓ 



/ / / / // / / / // //* 

//////////////////// 

//// / / /// /// / 

/ / / / / / / / / / 

/ ✓ ✓ ✓ ✓ 4 

// /-////,//-// / / / 

/ / / 



AS 



LISTING 2 



□ 



□ 



/ / , / / 
/ / / / / 

/ / / /** 

/ / / / , / 

/////// 
/ / / /•• 



///,////// / 
////-/ / 
/ / / / / ///-//// 
5615 BScPJ="x ✓ ffi' ' 

//-/ / / - / □ ✓ ✓ Q ✓ 

✓ //////// /ft/ □ ✓ ✓ 

5628 B$cQj="//-//// / Q/ , / / / / 
/ ✓ // ///// // / // / / ///":&$ 

C2761>=B$ 

5708 BS CM) - %% ////////////////// / / 
/ n Q / /// // / // // /,/// / 

// / / /{j/ / / n □ ✓ ✓ ✓ 

5705 BScN»=" //////// / / / / 
/ / Q / / □ / * ✓ , ✓ 

/ 'BBS! □ / ✓ / / ///,/////-//" 

5710 cOi =*•//,/-/// / □ / 

/ /-//////-//////-/ □ / / 

/ ///// ///&//// / / 

5715 BScp>="x / /,// ✓ //-// / □ 

' / IB ///// E3' / / // / / / 

//I}/ /-// ✓£) □ / / / /// □ 

5720 BScQi= ,, x/'/ ////-/ /// // / / 

/ / / / / // // / // / /••:£$ 

c3221>=BS 

5800 = %% //////////////////// / * * 

✓ ** ! u / / / //,/ /-/-/,/ ////// 

//,/,//-,/ ////•* 
/ / *t ✓ ✓ ' » * 
/ / / / / / / / / 
/,//,// * / /•* 
* /-///,/,// / 
/ / 
//,/** 



- / / / / / / 
5805 BSCN^""-' / 
/,/,// //,/,///-/ 

/ ¥k / - , / / 

5810 BS C0> -//// 

- / / / 



///-// m 

/ * / / /-////,/ / - 4 



5815 B$ cpa =••✓-✓ ✓ ✓ ✓ 
/-// / //// /-/,//,/ / / 
* /-//-/,//-/-// /,//// ** 

5828 B$cQ*= ,, <'-/' / 



* / / * 
* / / / 
/ / 
, / ,/ / / / , / 



/ / / / 



/ / * * / / / / / / 
C3681>=B$ 

6888 FOR J = R TO 5 : BOX c J> =BOXl c J> : NEXT 
J:U=USRc5L,ST+88,SL3+16>:U=U5Rc5L,ST+9 
6. 5L3+24J : U=U5R cSL , 5T+104 . 5L3+241 
6005 POKE 708,8:POKE 789,26:P0KE 718,5 
6:P0KE 711,14:5CN=2: ARU=R:FP=R 
6818 TC = 14 : TM = 4 \ Fl = 3 i F2 = 5 « F3 = 3 t G = 19 : 5P 
L = R: RBY = R i HLMT = R : PRL = R : L = 1248 « LR = R 
6812 5HLD=R:TU=R:E0G=R:TM=R:0IL=R:GRY= 
R : YLM = R : MHT = R : BGN = R ' CG = 24 : POKE 559, 34 
6815 FOR J=l TO 3 : B=INT cRND C8J *4i +1 : B= 
B*2:B=B+L: A$CB,BJ=" " I L=L+48 : NEXT J : RE 
TURN 

6828 M5G3$ = ,< 

6825 POSITION 2,6:? »6 ; "PRESS fflfflDDCOGQ F 
OR" : POSITION 4,8:? t*6 ; "RANDOM KEY5":P 
OSITION 8,18:? »6;KEY$c5,5i 
6838 POSITION 4,16:? »6;"0R SiatsTHfal mHffl" 
POSITION b,18:? «6;"T0 BEGIN" : POKE 76 
4, R 

6835 IF PEEKC53279>=3 THEN U=4:G0T0 68 
58 

6848 IF PEEKC764>=33 THEN RETURN 
6845 GOTO 6835 

6858 AS C378, 378> =" " : AS €3553, 3553* =" " 
:A$C3713, 37133=" " : AS C2998 , 2998J =" 
6855 FOR J=S TO 7 : D c Ja =H c«J : M=M+2 : NEXT 
J 

6868 FOR J=S TO 5 

6862 L=INTCRNDC8>*7>+S:IF DcLJ=R THEN 
6862 

6864 KY=DCL1+21 

6866 KY = KY + INT tRND c0)**18J : KY = KY + 28*INT 
CRND (03M21J 

6867 IF AS CKY, KY3 OCHRS C321 OR AScKY-2 
8,KY-28>=CHRSC45> OR AS cKY+28 , KY+28* =C 
HRSC44) THEN 6862 

6868 IF ASCKY+S,KY+S>=CHRSC178> OR ASc 
KY-5,KY-S>=CHRSC178> THEN 6062 

6070 AS CKY, KYJ =KEYS c J # J> : FOR DE=-10 TO 
10:SOUND R, 144, 10, 10-ABS CDE> : SOUND S, 

96,10, 10-ABScDEi :NEXT DE 

6071 COLOR 32:PL0T J+7,10:IF J=2 THEN 
J = 3 

6072 D cl_> =R : NEXT J : RETURN 

31000 jnk=usr c adr c h hcinihciraharahfiOhnrahnm 
■wHrannRHiaaninnar^LincriaraiiBHraffin* * , x 5 R , x d s , 

XCNTJ : RETURN 



AN 

JN 

GX 
PS 



EU 

IJ 
PR 

UO 

RD 

PY 

TH 
UB 

MY 
KB 
PU 

LM 

BQ 
YC 

DM 

BK 

MM 

CM 

UQ 

AR 
PU 
AL 

KM 
RM 

OX 

NA 

UY 

ET 

PJ 

CP 

UI 

SM 

UQ 

SA 

MF 

NP 

QO 

AX 



10 REM THE SECRET OF KYOBU DI, LISTING 

2 

20 REM BY BERNARD TAYLOR 
30 REM ccs 1985,1989 ANTIC PUBLISHING 
35 REM c CREATES LINES 305-310, 1105, 
1150-1160, 1226-1236, 1254 & 31000 FOR 

LISTING 1 > 
40 REM CLINES 10-250 MAY BE USED WITH 
OTHER BASIC LOADERS IN THIS ISSUE. 
50 REM CHANGE LINE 70 AS NECESSARY. > 
60 DIM FNS C203 , TEMPS C20J , ARS C93J : DPL=P 
EEKC105923 : POKE 10592,255 

70 FN$="D:LINES.LST":REM THIS IS THE N 
AME OF THE DISK FILE TO BE CREATED 
88 ? "IBrOiSK or Cassette?"; : POKE c 764,25 
5 

98 IF NOT CPEEKC764)=18 OR PEEKc764)= 
581 THEN 98 

188 IF PEEKC764>=18 THEN FNS=»C:" 

118 POKE 764,255:GRAPHICS 8:? " AN 

TIC'S GENERIC BASIC LOADER" 

128 ? ,"BY CHARLES JACKSON" 

138 POKE 18592, DPL : TRAP 288 

148 ? :? :? "Creating ";FNS:? "...Plea 

se stand by." 

158 RESTORE : RE AD LN : LM=LN •* DIM ASCLN>: 
C = l 

168 ARS="" : READ ARS 

178 FOR X=l TO LENCARS1 STEP 3 : POKE 75 
2,255 

188 LM=LM-1 : POSITION 18,18:? " (Countdo 
wn . . . T-"; INT cLM'10i ; "» 

190 AScC,C>=CHRScUALcARScX,X+2>>> : C=C+ 
l:NEXT X:GOTO 160 

200 IF PEEKC1951=5 THEN ? :? :? "QTOO 
MANY DATA LINES!":? "CANNOT CREATE FIL 
E ! " : END 

210 IF C<LN+1 THEN ? :? "QTOO FEW DATA 

LINES!":? "CANNOT CREATE FILE ! " : END 
220 IF FNS="C:" THEN ? :? " Prepare ca 
ssette, press [RETURN!" 
230 OPEN «*1,8,8,FNS 

248 POKE 766,1:? **1;A$;:P0KE 766,8 

250 CLOSE **1 : GRAPHICS 0:? "■ramaDQBSaSCCa 

1000 DATA 1167 

1818 DATA 8510488538328888778668618858 

8 388284 88 6 5868882848834184184184133287 

16518685 6229287141887212133 

1828 DATA 2131041841411118821628621841 

842818812400021620461420470 0216900 3141 

029208224 84624881416 9888133 

1830 DATA 2051332031690051332061690032 

08012169128133285133283169882133286169 

881824181213133284169888133 

1848 DATA 2120960340410440490540440510 

4408384115585184 984 8832885861085883882 

84 886586808284 8834184169888 

1858 DATA 1662862488121688881452832882 

882 5123828428228824 616428524 8887136145 

283192255288249896834841841 

1868 DATA 8588698840610900848488828878 

41858888879875869832855855844082155849 

84 984 88538328688738 7 7832867 

1878 DATA 8720710360400520488418448688 

3684 884 984 9041044087888878 83604 8 858856 

841844884 87908283684 88 58853 

1888 DATA 0410440848798828588368488528 

56841844 88888 00760 3 604 0055 05 0 041044 08 0 

04883684 885 5041044 0888 36848 

1898 DATA 8570588418588878888788368618 

34 88681282785518219 6128882255 0020 00 000 

0 00000 00 8 842828854 828 842888 

1188 DATA 8888888588318588888000341550 

4904905304 8832867883869884 83684 8849844 

856853841861034001000032082 

1110 DATA 0950 82 0370000000031241302141 

86214188856816884 8661268 98182090102060 

024 00501614 618625414 6884124 

1128 DATA 2388868888288628588588588548 

2 888 7128896224 84 8824 812886883 00 8 88 8888 

888888800000000000009000124 

1130 DATA 2541461301088888568188288888 

88888888888888828811888868886034155049 

04 90 54 04 88 320670838698 84 836 

1148 DATA 8488568548448498558498418618 

34186886186868000012126189219255255219 

18912681312618 921925 5255219 

1158 DATA 1891268148888888888000000000 

000 00015126189219255255219189126816888 

868182182182102060000058252 

continued on next page 

49 



1160 DATA 1261918641912370978636598088 
6 88 88126122852824 8688 68863865138865191 
237897863861688868862 885187 HA 
1178 DATA 8626288886341556498568586548 
32884879682836661634164184133284184133 
263184133287184133286168888 DU 
1188 DATA 1772661452832881926882682478 
96634 65888 38766618656 68882846084 8 79882 
036641155649858656855832884 IX 
1196 DATA 0796826586366618346000000000 
00126036024 024 0 868866 06 68812683 6824824 
066666666600126036024 024040 MO 
1200 DATA 1161040001260360240241160400 
9200012603602402402004611600812 6636824 
0240340586836 76649661865668 L.E 
1218 DATA 0826486848798826566368411556 
49658656656632667672071836661834126255 
068255686886866688888 668866 UZ 
1226 DATA 868255668255126628668 6686886 
08008008628126189219255255189219126126 
189195219219195189126834658 NK 
1236 DATA 0836768516618656688828486678 
728716366411556498566 5665763288 6636861 
03416418413321318413321213 3 KR 
1248 DATA 2882382132382131641841761641 
33284184133283184164157668288164184157 
00820810410420100124 6018224 GU 
1258 DATA 0811448272488662382132248822 
4881916912813321228861323821323 6213224 
06824 6865238213262268251164 ER 
1266 DATA 1841332891841641761642881772 
0323020816426914521223828928228 8241696 
03415504905005105003208 8888 AS 
1278 DATA 8768368618346866668368246666 



28866668668816838696652682064 000032009 

044 086 653658167816681876186 

1288 DATA 8946531268386766018811288168 

64 6618 64 632681876186694853126838676600 

124254146130108868856866880 

1296 DATA 8681271278888686068660668600 

160160 00000000034 858883876050061065068 

882848 688888676836641155849 

1366 DATA 8588510540320826666898368616 

346886688688 8665668465681600 000684866 8 

856124 656616146684848138656 

1316 DATA 1248561466666686000000560840 

560160 00000040068656124656016146084648 

136656124856146634858883876 

1326 DATA 8528616656688826488826668898 

3684115564 9856853652632685061885683882 

64 8865 868882848634164184133 

1338 DATA 2841841332831841332861841332 

85164184133287166686166286248814177203 

069207145203200208247230204 

1340 DATA 2022082421662652468161772838 

69287145283288282288246896034641844865 

6688826466778838 71658836641 

1358 DATA 8448766698788488776838718506 

36841844853641658882869884085882678832 

15565164 984 884 8848832674878 

1366 DATA 8756618858838826468658688828 

48834184184133241184133246164133213104 

133212104133239104133238160 

1376 DATA 6661772481452122382122888622 

38213236246288662238241198238268234198 

239816238696834641844688883 

1388 DATA 882844 8886686838448886676788 

84841658682869684885882878032155 



SOFTWARE, ETC. 

MAKE MONEY STUFFING ENVELOPES. How 
many can you fill for $1 each? Earn more with 
a PC. Send SASE to Suburban Enterprises, POB 
172 Fairport, N.Y. 14450 (5/89) ' 

ENJOY quality public domain software! 
Games — productivity — utilities — more! Demo 
disk, $3.00 . . . catalog FREE. Homemade, 6011 
Hyde Park Circle #205, Jacksonville, FL 32210 

(5/89) 

Applications software for XL/XE or ST! Busi- 
ness, MIDI/Music, Educational, Amateur Radio, 
Astronomy, more! $4.00 per disk. SASE for 
catalog. SPECIFY COMPUTER. GatorWare, Box 
1215, Gainesville, FL 32602-1215 (5/89) 

FORMS GENERATOR, the top-selling 
800/XL/XE program, now available for distri- 
bution by qualifying dealers and groups. Con- 
tact: 25th Century, Box 8042, Hicks ville, NY 

11802, (516) 932-5330 (5/89) 

COLOR PRINT GRAPHICS LIBRARY DISKS for 
The Printshop create unique two color designs. 
Requires color ribbons. Two disk set $11.95, 
plus $2 S & H for 8 bit. SASE for information. 
WJA SOFTWARE, 26 Hunters Lane, Hender- 
sonville, NC 28739 



Antic Classifieds 



****** 

BATTERY BACKED UP RAMDISK. Never 
lose your memory. Boot from Ramdisk! No 
installation. Ramdisk cartridge plugs into Atari 
400/800 or XL/XE. 32K $99.95, 64K $129.95, 
192K $249.95 Certified check, Money order, 
VISA accepted. CANOE COMPUTER SERV- 
ICES, 11006-155 St. Edmonton, AB, T5P-2N3 
Phone (403) 437-4619 



****** 

Save on ATARI 800/XL/XE Public Domain and 
Shareware software! Over 200 very unique 
Theme Disks. Every program guaranteed! 
Dependable world-wide service. Write for Free 
descriptive Catalog. BELLCOM, Box 1043-A, 
Peterborough, Ontario, Canada K9J 7A5 (5/89) 
STOP! LOOK! $4,000/month with computers. 
Homebased. Proven. No experience/capital. 
Guaranteed. Free details. MacKenzie, Box 
91181— LCC, Pasadena CA 91109 (5/89) 

****** 

Stop overpaying for P.D. Software!!! ALL 8-bit 
disks only $2.00 each, ST only $3.00. Quan- 
tity discounts, great selection. Specify com- 
puter. Send large SASE: MWPDS, 890 N. 
Huntington St., Medina, OH 44256 (5/89) 



****** 

Si's Fantastic Selection of packed ATARI 8-bit 
(D-S)/ST PD Theme Disks is Far SUPERIOR to 
all other collections we've seen— TRY US! Send 
for MLX GAMES 'GREATEST HITS (our Most 
Popular title), plus Si's newest catalog, for 
8-bit/$3.00 or ST/$4.50. Catalog alone (specify 
system)/$2.00. SOFTWARE INFINITY, 642 East 
waring Avenue, State College, PA 16801 (5/89) 

Try us for your Atari Public Domain software 
needs. Good prices, fast service. Write for free 
catalog. Vulcan Software, PO Box 692 

Manassas, VA 22111-0692(7/89) 

SynFile+ UTILITY PROGRAMS. Print file lay- 
out, create and save reports, undelete records, 
alter look-up tables, etc. $19.95 plus $2.00 
P&H. Send large SASE for more info. SFP, 4 
Forest Drive, Palmyra, VA 22963 (5/89) 
250+ DS/SD DISKS OF PD SOFTWARE FOR 
THE 8-BIT ATARI. SEND $3 TO: AAPDS 
6-18TH EDGEMOORE, HUTCHINSON, KS 
67506 (5/89) 



Your Ad Could Appear Here 
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ANTIC SOFTWARE LIBRARY 



BUY 



SELL 



TRADE 



SWAP 



Antic Classifieds 

544 Second Street, San Francisco, CA 94017 
Telephone (415) 957-0886 



Company 



City/State/Zip 



MasterCard/Visa Number 



Expiration Date 



Signature 

Enclosed is my payment for $ _ 



Issue(s) Ad to Appear 



RATE: S1.00 PER WORD— twenty (20) word minimum. 

BOLDFACE: Add $7.50 per line for boldface words or add $40.00 for the entire ad set 
in boldface (any number of lines). 

STARS: Add $6.50 for one (1) line of six (6) stars ★★★**★ at top of ad. 
TERMS: Prepayment Is required. Check, Money Order, Visa or MasterCard is 
accepted. Make check payable to Antic Publishing. 

FORMS: Ads are subject to publisher's approval and MUST BE TYPED. Please underline 
words to be set in boldface. 

GENERAL INFORMATION: Advertisers using Post Office Box numbers in their ads must 
supply permanent address and telephone numbers. Ad will appear in the next avail- 
able issue after receipt unless otherwise specified. 

DEADLINE: 90 days prior to cover date (e.g., December 1988 closes September 1, 
1988 — December issue on sale November 1, 1988). 

Clip this coupon, attach to typewritten copy and send with remittance to address on 
the left. 

HANDWRITTEN COPY WILL NOT BE ACCEPTED 



AN AD IN ANTIC REACHES MORE THAN 100,000 SERIOUS ATARI USERS 



Advertisers 
Index 

Be sure to mention ANTIC when contacting these advertisers— all of whom 
support the Atari 8 bit and ST computer. 

PAGE NO. 

AMERICAN TECHNAVISION IFC 

ANTIC 26,27 

B & C COMPUTERVISION IBC 

COMPUTER MAIL ORDER 35 

COMPUTER SOFTWARE SERVICE 4 

MICROTYME 29 

SAN JOSE COMPUTER BC 

This list is provided as a courtesy to our advertisers. ANTIC does not 
guarantee accuracy or comprehensiveness. 



Advertising 
Deadlines 



July 1989 



Insertion Orders: March 30 

Artwork: April 6 

On Sale: Last week of May 



August 1989 

Insertion Orders: May 1 
Artwork: May 8 

On Sale: Last week of June 



September 1989 

Insertion Orders: May 31 
Artwork: June 7 

On Sale: Last week of July 



Tech Tips 



DEFAULTWRITER+ COMPANIONS 1 & 2 

BY PAUL ALHART 

These short BASIC programs let you control the de- 
fault buzzer settings for AtariWriter + and the 
AtariWriter* Proofreader. DefaultWriter will only 
work with the 48K versions of these programs. 

DefaultWriter Companion #1 (DWC1.BAS) lets you 
disable that annoying buzzer when you start the 
program. The effect is the same as typing [CON- 
TROL] [B] from the main menu, and you can still 
use [CONTROL] [B] to turn the buzzer on and off. 

As a bonus, you can also change the duration of 
the buzzer with Companion #1. Even with the 
buzzer disabled, it will still sound when certain 
selections (like FORMAT) are made. The duration 
can be set to 0 for complete silence, or up to a set- 
ting of 255. The normal setting is 32. 

DefaultWriter Companion #2 (DWC2.BAS) lets 
you change the buzzer default for the AtariWriter + 
PROOFREADER program. An added option lets you 
turn off the ARE YOU SURE (Y/N) prompt that fol- 
lows a spelling correction. Proofreader will still 
check your new spelling against the dictionary, but 
you won't have to type Y after entering the word. 

These two Companions will work on your origi- 
nal AtariWriter + Disk — as did my original 
DefaultWriter + {Antic, July 1988) which lets you 
pre-program two different sets of defaults for in- 
stant loading. However, to be on the safe side, you 
should make one or two backup copies of your 
original AtariWriter + disk, put the original disk in 
a safe place, and only work with the copies. 



LISTING 1 



Don't type the 
TYPO II Codes! 



RH 

EP 
QR 
LP 

FO 
Ufi 

DC 
RJ 
WW 



REM A 
ION ssi 
REM B 
REM c 

? "H 

B 

? "At 
? *• ? 
ter + 

IF PE 
6 TRAP 
5 CLOS 
E ssi , Q 



TARIURITER DEFAULTWRITER cCOMPA 
) 

Y PAUL U. ALHART 
01988, ANTIC PUBLISHING 
This proaraH lets you change th 
UZZER Default settings for" 
ariUriter+ C48K Uersion) .":? 
" Insert a copy of your Atari Mi- 
di sk and press ■HMblEUNB" * ? 
EKC53279J06 THEN 8 

100:DIM INSC1) 
E »l:OPEN stl, 12, 8, "D : AP . OBJ" : Nfl 
,U:S1=Q+185:S2=Q+122:B1=22:B2=8 



QE 

EH 
TR 
UB 

UP 

C5 
UB 

AY 

GJ 



26 POINT ssi, 51* Bl :GET *S1,A:P0INT ssi,S2 
* B2 : GET s*l,B:IF A<>6 AND A<>255 THEN 9 

e 

39 ? "WThe Default Buzzer setting is " 
;A:? " 8 = OFF 255 = ON" 

40 ? :? "Buzzer Duration is set at ";B 
;" JIFFIES" :? " NORMAL = 32" 

50 ? :? "Do you want to change these s 
ettinss cY^N>"; :1NPUT IN$:IF INSO"Y" 

THEN CLOSE «1 : END 
60 ? :? :? "Type 0 or 255 for Buzzer D 
ef auit" : INPUT A : IF A<>0 AND A<>255 THE 
N 60 

70 ? "Type Buzzer Duration" : INPUT B 
80 POINT SSI, 51, Bl: PUT »i. A: POINT ssi, 52 
,B2:PUT s*l,B:GOTO 20 

90 CLOSE SSls? -USE WITH 48K UERSION ON 
LYE" 

100 CLOSE SSl:? "ERROR ";PEEKci95:> 



LISTING 2 



CN 

EP 
QR 
MG 

PJ 

UE 

DC 
R J 
1R 



GH 

IC 
TR 
RL 
Uii 

fiR 



C5 
T J 

UO 

51 
CA 

GJ 



1 RE 
NION 

2 RE 

3 RE 

4 ? 
e 

5 ? 
DER 

7 ? 
HE1B1D 

8 IF 
10 T 
15 C 
E ssi 
7 : B2 
20 P 
, B2 : 
F C< 
30 ? 
; A : ? 
40 ? 
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J 

? 

32 
50 ? 
ett i 
THE 
60 ? 
Def 
THE 
70 ? 
75 ? 
1NPU 
80 P 
, B2 : 
85 G 
90 C 
YE" 
100 



M PROOF 

tt2) 
M BY PA 
M CCJ19 
"Si This 
BUZZE 
• cY'N) 
C48K 
:? " In 
■" : ? 

PEEK<5 
RAP 100 
LOSE »1 
, W: 51 
= 121 : B3 
OINT »1 
GET ssi, 
>32 AND 

"HI he 

2 

:? "Bu 
IFFIES" 

:? "Th 

= ON 

:? "Do 
rigs cY 
N CLOSE 

'• ? ' ? 
auit" : I 
N 60 

"Type 

"Type 
T CsIF 
OINT ssi 
PUT ssi, 
0T0 20 
LOSE »l 



READER DEFAULTWRITER cCOMPA 

UL U. ALHART 

88, ANTIC PUBLISHING 

Progran lets you change th 
R Default settings and the" 
ProriPt settings of PROOF REA 
ONLY ! J " 

sert your diSK and press 



32 
: D 
: U 
= Q 
= 3 
. 5 
0 : 

c 

De 
08 
zz 

: O 



y 

» 
"T 
NP 



J <>6 THEN 8 
IN$ ell 

N s*l,12,0."D:PRUQI " : NOT 

7:S2=Q+27:S3=U^38:U1=11 



U .t : 

INT 

96 

u 1 1 
OF 
Du 

/N* 
6 = 

wa 
; : I 
END 
e 2 

A : 



GET ssi,ft:pQIN1 ssi, 52 

ssi , 53, B3 : GET »1 , C : I 
THEN 90 

Buzzer setting is " 
F 240 = ON" 

ration is set at ";B 

NORMAL = 32" 

ProMPt is " ; C : ? " 

OFF" 

nt to change these s 
NPUT INSsIF 1N$<>"Y" 



08 or 240 
IF AO208 



for Buzzer 
AND AO240 



Buzzer Duration" : INPUT B 
32 or 96 for cY'N* ProMPt": 
C<>32 AND C<>96 THEN 75 
,51,Bl:PUT SS1,A:P0IN( ssi, 52 
B:POINT ssi, 53, B3 : PUT »1 , C 

:? "USE FOR 48K UERSION ONL 



CLOSE ssi : ? "ERROR ";PEEKd95* 



Antic pays $25 for every original and exclusive Tech 
Tip submission that we publish. Send your 8-bit or ST 
disk and printout to: Antic Tech Tips, 544 Second 
Street, San Francisco, CA 94107. Tech Tips welcomes 
very short programs that demonstrate the Atari's 
powers, simple hardware modifications, or useful 
macros for popular software. 
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ANTIC, THE ATARI RESOURCE 



ComputerVisions 



3257 Kifer Road 
Santa Clara, CA 95051 
(408) 749-1003 



A 



STORE HOURS 
TUE - FRI 10am - 6pm 

SAT - 10am - 5pm 
CLOSED SUN - MON 



SOO/ X E/ X E S OETW^L RE 

ALL TITLES ON DISK 



ENTERTAINMENT 

12 ADAMS ADVENTURES .. 14.95 

ALIANTS 26.95 

ALT. REALITY CITY 26.95 

ALT. REALITY DUNGEON. 26.95 

BEYOND CASTLE WOLF 14.95 

BISMARK 26.95 

BOP & WRESTLE (64K)... 26.95 

BORDINO:1812 26.95 

BOULDERDASH CONSTR.SET 17.95 

BRUCE LEE 17.95 

CASTLE WOLFENSTEIN 14.95 

DALLAS QUEST 7.95 

D-BUG 7.95 

F-15 STRIKE EAGLE 31.50 

FIGHT NIGHT 17.95 

GAUNTLET (64K) 31.50 

DEEPER DUNGEONS 22.50 

GUNSLINGER 26.95 

HARD HAT MAC 7.95 

JAWBREAKER 9.95 

KARATEKA 13.50 

KNICKERBOCKERS 13.50 

KORONIS RIFT 13.50 

LAST V-8 8.95 

LEADERBOARD 13.50 

MAIL ORDER MONSTERS .. 13.50 

MICROLEAGUE BASEBALL.. 35.95 

MONTEZUMA'S REVENGE... 14.95 

MOUSEQUEST 17.95 

MOON SHUTTLE 7.95 

NINJA 8.95 

OIL'S WELL 9.95 

O'RILEY'S MINE 9.95 

PIRATES OF BARB. COAST 22.50 

PREPPIE I & II 9.95 

RESCUE ON FRACTALAS... 13.50 

SILENT SERVICE 31.50 

SPEEDKING 8.95 

SPIDERMAN 7.95 

SPITFIRE 40 31.50 

STARFLEET I 44.95 

SPY VS. SPY III 17.95 

STOCKMARKET 22.50 

STRIP POKER 26.95 

SUMMER GAMES 17.95 

TAX DODGE 9.95 

THE HULK 7.95 

TOMAHAWK (64K) 26.95 

TOP GUNNER 17.95 

TOUCHDOWN FOOTBALL ... 13.50 

TRAILBLAZER 26.95 

UNIVERSE 44.95 

ZAXXON 13.50 

PROGRAMMING 

ACTION! 71.95 

ACTION! TOOLKIT 26.95 

BASIC XL 53.95 

BASIC XL TOOLKIT 26.95 

BASIC XE 71.95 

DISK I/O 26.95 

DRAPER PASCAL 44.95 

KYAN PASCAL 62.95 

LIGHTSPEED C 35.95 

LOGO 2 9.95 

MAC/65 71.95 

MAC/65 TOOLKIT 26.95 

MACRO ASSEMBLER 22.50 

PILOT 19.95 

SPARTA DOS X 71.95 

TOP DOS 1.5 PLUS 35.95 

PRODUCTIVITY 

ANIMATION STATION 89.95 

ATARIWRITER+ 39.95 

ATARI BOOKKEEPER 24.95 



SOO/ X E/ X E S OETW RE 

ALL TITLES ON CARTRIDGE 



ATARI MUSIC II 14.95 

AWARDWARE (1050) 13.50 

BANK STREET WRITER 14.95 

BLAZING PADDLES 31.50 

CELEBRITY COOKBOOK ... 26.95 
COMPUTE YOUR ROOTS ... 35.95 

DATAMANAGER 17.95 

FAMILY FINANCE 6.95 

GUITAR WIZARD 26.95 

HOME ACCOUNTANT 19.95 

HOME FILING MANAGER. . 6.95 

HOMEPAK 24.95 

INVENTORY MASTER 80.95 

LETTER WIZARD 29.95 

MUSIC CONSTRUCTION SET 13.50 
NEWSROOM (1050 - 64K). 13.50 

NEWS STATION 26.95 

NEWS STA. COMPANION. . 26.95 

PAGE DESIGNER 26.95 

PRINT POWER (1050) 13.50 

PRINTKIT (1050) 13.50 

PRINTSHOP 34.95 

P.S. COMPANION (64K) . 24.95 
P.S.GRAPHICS LIBRARY 1 17.95 
P.S.GRAPHICS LIBRARY 2 17.95 
P.S.GRAPHICS LIBRARY 3 17.95 

PROOF READER 17.95 

PUBLISHING PRO 35.95 

RUBBER STAMP 26.95 

SYNTREND 14.95 

SUPER MAILER 35.95 

THE LOTTO PROGRAM .... 17.95 

TIMEWISE 6.95 

TURBOWORD/80 COLUMN 

REQUIRES XEP80 44 .95 

VIDEO TITLESHOP (64K). 26.95 

GRAPHICS COMPANION. 17.95 

VIRTUOSO 29.95 

VISICALC 24.95 

EDUCATION 

ATARI LIGHT MODULE 

(REQ. ATARILAB STARTER) 9.95 

BUZZWORD 35.95 

GRANDMA'S HOUSE (-10) 9.95 
HEY DIDDLE (AGE 3-10). 9.95 

MASTER TYPE 14.95 

PLAN ATARI UM 22.50 

STATES AND CAPITALS .. 9.95 

TOUCH TYPING 9.95 

CBS (AGE 3-6) : 

ASTROGROVER 8.95 

BIG BIRD SPEC DELIVE 8.95 
ERNIE'S MAGIC SHAPE. 8.95 
DESIGNWARE: 

MATHMAZE (6-11) .... 35.95 
MISSION ALGEBRA (13+)35.95 
SPELLICOPTER (6-11). 35.95 
TINK TONK (AGE 4-6) : 

ABC'S 8.95 

COUNT AND ADD 8.9 5 

SMART THINKER 8.95 

SPELLING 8.95 

SUBTRACTION 8.95 

THINKING SKILLS 8.95 

ALL 6 TINK TONKS.. 39.95 
UNICORN: 

10 LITTLE ROBOTS 

(PRE-SCHOOL) 26.95 

FUN BUNCH (6-ADULT) 26.95 
RACECAR RITHMETIC 

(AGE 6 + ) 26.95 

WEEKLY READER (PRE-SCHOOL) : 
STICKY BEAR SHAPES . 26.95 
STICKY BEAR NUMBERS. 26.95 
STICKY BEAR ABC'S .. 26.96 
STICKY BEAR OPPOSITE 26.95 



ENTERTAINMENT 

ALIEN AMBUSH 9.95 

ACE OF ACES . (XL/XE) . 24.95 

ARCHON 19.95 

ASTEROIDS 15.95 

ATARI TENNIS 9.95 

BALL BLAZER 19.95 

BARNYARD BLASTER 24.95* 

BATTLEZONE 19.95 

BLUE MAX 19.95 

CAVERNS OF MARS 14.95 

CENTIPEDE 14.95 

CHICKEN 9.95 

CHOPLI FTER 14.95 

CLAIM JUMPER 9.95 

CLOUDBURST 9.95 

CRIME BUSTER 24 . 95* 

CROSSBOW 24.95* 

CROSSFIRE 9.95 

DAVIDS MIDNIGHT MAGIC 19.95 

DEFENDER 14.95 

DELUXE INVADERS 7.95 

DESERT FALCON 19.95 

DIG DUG 19.95 

DONKEY KONG 5.00 

DONKEY KONG JR 19.95 

EASTERN FRONT (1941). 19.95 

E.T. PHONE HOME 9.95 

FIGHT NIGHT 19.95 

FINAL LEGACY 19.95 

FOOD FIGHT (XL/XE)... 19.95 

FOOTBALL 14.95 

FROGGER 14.95 

GALAXIAN 19.95 

GATO 24.95 

GORF (400/800) 5.00 

GYRUSS 14.95 

HARDBALL 19.95 

INTO THE EAGLES NEST 19.95 

JOURNEY TO PLANETS .. 9.95 

JOUST 19.95 

JUNGLE HUNT 19.95 

KABOOM! 14.95 

LODE RUNNER 24.95 

MARIO BROS 19.95 

MILLIPEDE 19.95 

MISSILE COMMAND 5.00 

MOON PATROL 19.95 

MR. COOL 9.95 

MS. PAC MAN 19.95 

NECROMANCER 19.95 

ONE ON ONE (XL/XE)... 19.95 

PAC MAN 5.00 



PENGO 

POLE POSITION 

POPEYE 

Q-BERT 

QIX 

RESCUE ON FRACTALAS . 
RETURN OF THE JEDI . . 

ROBOTRON:2084 

SKY WRITER 

SLIME (400/800) 

SPACE INVADERS 

STAR RAIDERS 

STAR RAIDERS II 

SUPER BREAKOUT 

TRACK & FIELD 

TURMOIL 

WIZARD OF WOR 

* REQUIRES LIGHT GUN 



19.95 
19.95 
14.95 
14. 95 
14.95 
19.95 
14.95 
19.95 
14.95 
9.95 



19. 95 
9.95 

24 . 95 
9. 95 



PRODUCTIVITY 

ATARIWRITER 19.95 

MICROFILER 22.50 

EDUCATION 

ATARILAB STARTEER SET 29.95 

MATH ENCOUNTERS 9.95 

FISHER PRICE (PRE SCHOOL) : 

DANCE FANTASY 8.95 

LINKING LOGIC 8.95 

LOGIC LEVELS 8.95 

MEMORY MANOR 8.95 

SPINNAKER (AGE 3-10) : 
ALF IN COLOR CAVES . 9.95 

ALPHABET ZOO 9.95 

DELTA DRAWING 9.95 

FACEMAKER 9.95 

KIDS ON KEYS 9. 95 

KINDERCOMP 9.95 

(AGE 7 - ADULT) : 

ADV. CREATOR (4 0 0/ 800 ) . 9 . 95 
FRACTION FEVER 9.95 

THE BASIC TUTOR 

Learn to program in BASIC 
Requires a 410 OR 1010 Program Recorder 
COMPLETE PACKAGE ONLY $9.95 

BOOKS ONLY 

DE RE ATARI 10 . 00 

LOGO 10.00 

ATARIWRITER 10.00 

DOS 2.5 12.95 

BASIC REFERENCE 5.00 

BOOKKEEPER 10.00 



^JjL, RECOND 



30 DAY WARRANTY 



800 (48K) 
COMPUTER 
$79.95 


SPACE AGE 
JOYSTICK 
$5.00 


1030 MODEM 
WITH EXPRESS! 
$24.95 


400 (16K) 
COMPUTER 
$29.95 


ATARI 
TRACKBALL 
$9.95 


1010 PROGRAM 

RECORDER 
$29.95 


1020 COLOR 
PRINTER/ PLOTTER 

$19.95 

40 COLUMNS WIDE 
(NEW IN BOX) 


ATARI 
BOOKKEEPER 
$14.95 - NO BOX 

ATARI 
NUMERIC 
KEYPAD $7.95 


DISKETTES 
AS LOW AS 20 CENTS 
10 FOR $4.00 
100 FOR $29.95 
1000 FOR $200 
MOST ARE UNNOTCHED 
WITH OLD SOFTWARE 



SHI PPING INFORMATION - Prices do not include shipping and handling. Add $5.00 for small items ($8.00 Min. for Canada). Add $8.00 for disk 
drive. Add $2.75 for C.O.D. Calif, res. include 7% sales tax. Mastercard and Visa accepted if your telephone is listed in your local phone directory. 
Orders may be pre-paid with money order, cashier check, or personal check. Personal checks are held for three weeks before order is processed. 
C.O.D orders are shipped via UPS and must be paid with cash, cashier check or money order. International and APO orders must be pre-paid with 
cashier check or money order. $20.00 minimum on all orders. All sales are final - no refunds - prices are subject to change. 

Phone orders accepted TUESDAY THROUGH FRIDAY from 10:00 am to 6:00 pm PST. 

We carry a complete line of ATARI products and have a large public domain library. 
Write or call for free catalogue. (408) 749- 1003 TUE - FRI 10AM - 6 PM 



PRICES SUBJECT TO CHANGE WITHOUT NOTICE - 



ALL SALES ARE FINAL 



WE'RE BACK! 



I SAN JOSE COMPUTER, 'THE ATARI STORE', is the largest seller of ATARI 
products and now we're back in the 8-Bit market to serve you better. 



1200XL 



• 64KRAM 
• XE COMPATIBLE 



Reconditioned. 90 day warranty 



$49,95 1 1025 PRINTER $89.95 

Reconditioned, 90 day warranty 



| COMPUTERS 

1 800 $69.95 

1 400 $29.95 

1 600XL $49.95 

jg Reconditioned, 90 day warranty 


MISCELLANEOUS ! 

850 INTERFACE $89.95: 
MONO MONITOR ... $39.95: 

TRACKBALL $9.95: 

JOYSTICK 20' EXT. $ .99 

Reconditioned, 90 day warranty 


PRE 

Reconditioned 

825 .... $79.95 
\ 1029 .. $129.95 

; Reconditioned, 90 day warranty 


NITERS 

Brand new in box! 

1027.i££&. .. $89.98 | 
1020..^^ ...$18.98 j 
1020 plotter pins $ .98 ( 



CARTRIDGES FOR 800, XL, XE 



BASIC CARTRIDGE $4.95 

QIX $4.95 

TURMOIL $4.95 

PAC-MAN (no box) $4.95 

DONKEY KONG (no box) $4.95 

GORF (400,800) $4.95 

DEMON ATTACK (400.800) $4.95 

DELUXE INVADERS $4.95 

JOURNEY TO THE PLANETS $4.95 

MATH ENCOUNTER $7.98 

SKY WRITER $14.95 

FOOTBALL $14.95 

DEFENDER $14.95 



ROBOTRON $19.98 

TENNIS $19.98 

FINAL LEGACY $19.98 

MARIO BROS $19.98 

DONKEY KONG JR $19.98 

JUNGLE HUNT $19.98 

MOON PATROL $19.98 

BATTLEZONE $19.98 

FOOD FIGHT $19.98 

HARDBALL $19.98 

FIGHT NIGHT $19.98 

ONE ON ONE BASKETBALL $19.98 

DESERT FALCON $19.98 



NECROMANCER $19.98 

RESCUE ON FRACTALUS $19.98 

BALLBLAZER $19.98 

BLUE MAX $19.98 

STAR RAIDERS II $19.98 

DAVID'S MIDNIGHT MAGIC $19.98 

ARCHON $19.98 

GATO $24.98 

ACE OF ACES $24.98 

LODE RUNNER $24.98 

BARNYARD BLASTER (XE gun) $24.98 

ATARI LAB LIGHT MODULE $29.98 

ATARI LAB STARTER KIT $39.98 



DISK SOFTWARE FOR 800, XL, XE 



DAVID'S MIDNIGHT MAGIC $4.98 

ZORRO $4.98 

BANDITS (48K 400.800) $4.98 

PROTECTOR II $4.98 

CLAIM JUMPER $4.98 

SYNTREND $4.98 



CROSSCHECK $4.98 

MOLECULE MAN $4.98 

CRYSTAL RAIDER $4.98 

DESPATCH RIDER $4.98 

MISSION ASTEROID $4.98 



SPIDERMAN $4.98 

HULK $4.98 

VISICALC $24.98 

BOOKKEEPER W/ numeric keypad... $29.98 
GET RICH $39.98 



810 

DISK 
DRIVES 

$129. 



BASIC TUTOR .. (2 BOOKS) .. $4.98 
SERIAL 8-BIT I/O CABLE $5.95 



SAN JOSE COMPUTER 



THE 



ATARI 



STORE 



Sunrise Plaza 640 Blossom Hill Rd. San Jose, CA 95123 
(408) 224-8575 • BBS (408) 224-0952 



5.25" DISKS 

20 CENTS EA.* 

QTY. PRICE 

10 $4.00 

100 .... $29.95 
*1000 .... $200 

MAJORITY ARE UNNOTCHED 
CONTAINING OLD SOFTWARE 



SHIPPING: ADD $5.00 TO ALL ORDERS. AIR AND INTERNATIONAL SHIPPING EXTRA. THATS IT. 
WARRANTY: 90 DAY WARRANTY ON ALL ITEMS. TAX: CALIFORNIA RESIDENTS ADD 7% SALES TAX. 
PREPAYMENT: USE VISA. MASTERCARD , MONEY ORDER, CASHIER'S CHECK OR PERSONAL CHECK. 
PERSONAL CHECK MUST CLEAR PRIOR TO SHIPMENT. C.O.D.: CASH, CASHIER'S CHECK OR M.O. ONLY. 
Prices subject to change without notice. Brand and/or product names are trademarks or registered trademarks of their respective holders. 

Ad produced on an ATARI ST. 



